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1.0  INTRODUCTION 


1.1  HISTORIC  PERSPECTIVE 


Mechanically  simple,  but  dynamically  complex,  coaxial  plasma  guns  have 
been  Investigated  and  used  in  plasma  physics  experiments  since  the  early 
1960's.  A  schematic  of  a  simple  coaxial  plasma  gun  Is  shown  In  Figure 
1.  Coaxial  plasma  guns  consist  of  an  Inner  and  outer  electrode  and  an 
annular  region  between.  At  one  end,  the  two  electrodes  are  separated 
electrically,  usually  by  a  dielectric  material.  The  annular  region  Is 
evacuated  by  vacuum  pumps  and  a  gas  is  inserted  (near  the  end  of  the 
coaxial  plasma  gun  where  the  Insulator  Is  located).  An  electrical 
potential  is  applied  across  the  annular  region  by  biasing  the  Inner  and 
outer  electrodes.  The  gas,  electrically  stressed  past  Its  breakdown 
voltage  (determined  by  the  physical  and  chemical  components  of  the 
Individual  gas  and  by  the  electrode  geometry),  breaks  down  (Ionizes  and 
carries  electrical  current)  and  allows  a  radial  current  Jp  to  flow 
between  the  electrodes. 

The  gas  breakdown  Is  characterized  by  a  Paschen  gas  breakdown  curve. 

The  Paschen  curve  shows  a  function  of  gas  dielectric  strength  (measured 
by  the  breakdown  voltage)  as  a  function  of  the  gas  fill  pressure.  The 
pressure  can  range  from  10'7  Torr  to  tens  of  atmospheres.  At  the 
extreme  low  end  of  the  gas  pressure  curve,  the  fill  gas  acts  like  a 
vacuum  with  Its  resultant  high  dielectric  breakdown  strength.  At  the 
high  end  of  the  gas  pressure  curve,  the  fill  gas  has  Its  characteristic 
breakdown  voltage.  In  the  region  between,  where  the  gas  pressure  Is 


neither  high  nor  low,  the  gas  sustains  a  breakdown  at  a  reduced  voltage. 
(The  smallest  breakdown  voltage  for  any  fill  gas  and  given  geometry  Is 
defined  to  be  the  Paschen  minimum.)  While  this  generalized  behavior  Is 
both  electrode  geometry  and  fill  gas  dependent,  the  trend  remains  the 
same  for  all  gases. 

This  radial  current  Jr  creates  an  azimuthal  magnetic  field  BQ.  The 
radial  current  Interacts  with  the  self-produced  magnetic  field  BQ  to 
create  a  driving  force  F  defined  by  the  vector  cross  product  of  and 
Bq  given  In  equation  (1.1.1). 

f*Vb0  (1.1.1) 

The  driving  force  F  accelerates  the  plasma  down  the  axial  length  of  the 
coaxial  plasma  gun  toward  the  gun  muzzle  (the  open  end  of  the  plasma 
gun)  with  an  acceleration  a  determined  by  the  driving  force  and  the 
accelerated  mass. 

The  coaxial  plasma  gun  operates  In  several  regimes  or  modes.  One  of 
these  modes  Is  the  snowplow  mode  [1].  Another  mode  Is  the  deflagration 
mode  [2].  The  transition  region  of  operation  between  snowplow  and 
deflagration  modes  can  be  considered  an  Intermediate  mode  [3]. 

The  snowplow  mode  occurs  when  a  plasma  sheath  sweeps  up  gas  as  It 
travels  In  the  coaxial  plasma  gun.  The  snowplow  mode  occurs  In  a 
coaxial  plasma  gun  when  a  thin  plasma  sheath  Is  formed  by  the  electric 
breakdown  of  a  gas,  usually  at  an  Insulator/vacuum  Interface  In  the  gun. 


(This  Is  Indicated  by  the  number  1  In  Figure  la.)  The  sheath  "lifts 
off"  or  separates  from  the  Insulator  and  drives  It  from  the 
electrode/vacuum  Interface  down  the  length  of  the  coaxial  gun  by  the 
J  x  b  force.  (This  Is  Indicated  by  the  number  2  In  Figure  la.)  The 
snowplow  mode  drives  mass  ahead  of  the  sheath  and  carries  It  with  the 
sheath  until  the  plasma  sheath  and  the  entrained  mass  reach  the  end  of 
the  gun.  This  accumulation  and  forcing  a  mass  of  gas  ahead  of  the 
sheath,  like  a  snowplow  pushing  a  snow  mass,  give  the  snowplow  mode  Its 
name.  The  snowplow  coaxial  plasma  gun  produces  a  plasma  that  Is  denser 
and  thermally  hotter  than  the  deflagration  mode.  The  snowplow  mode  is 
the  mode  used  to  produce  the  plasma  focus  (PF)  behavior  at  the  end  of 
the  plasma  gun.  (This  Is  Indicated  by  the  number  3  In  Figure  la.)  A 
great  deal  of  research  has  been  performed  on  the  snowplow  mode.  This 
work  Includes  different  research  aspects  done  In  the  Marshall/Mather 
coaxial  geometry  [4-23]  and  In  the  Filippov  geometry  [24-26]. 

The  deflagration  mode  of  the  coaxial  plasma  gun  occurs  when  a  discharge 
Is  formed  near  the  Insulator  end  of  the  gun  annulus  and  does  not  lift 
off  the  Insulator  surface.  (A  deflagration  mode  Is  Indicated  In  Figure 
lb.)  A  thick  plasma  discharge  forms  a  stationary  or  quasi -stationary 
plasma  sheath.  The  plasma  sheath  grows  as  mass  Is  Inserted.  The 
deflagration  mode  was  so  named  by  Cheng  [27]  when  he  compared  It  with 
the  motion  of  chemical  combustion  or  deflagration.  The  deflagration 
mode  produces  a  plasma  less  dense  than  the  snowplow  mode.  The 
deflagration  mode  plasma  produces  a  cooler  plasma  than  the  snowplow 
mode,  but  the  plasma  Is  more  directed.  Being  less  dense  and  more 
susceptible  to  magnetic  field  diffusion  Into  the  plasma,  the 
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deflagration  mode  Is  used  to  produce  plasmolds  (plasma  slugs)  with 
embedded  magnetic  fields.  Experimental  and  theoretical  work  on  the 
deflagration  mode  of  coaxial  plasma  guns  has  been  performed  by  different 
researchers  [28-31]. 

The  transition  mode  Is  neither  the  snowplow  mode  or  the  deflagration 
mode,  but  has  characteristics  of  both.  In  the  experimental  series 
reported  by  Len  [3],  transition  modes  occurred  Infrequently.  Transition 
behavior  starts  off  with  snowplow  characteristics  and  becomes  more  like 
the  deflagration  mode. 

Coaxial  plasma  guns  must  be  supplied  with  gaseous  material.  Gas  can  be 
supplied  to  the  plasma  gun  prior  to  gun  operation.  The  static  fill 
(preflll)  mode  occurs  when  gas  Is  provided  to  the  gun  on  time  scales 
much  longer  than  the  gun  operation,  so  fill  gas  is  quiescent  in  the 
coaxial  gun  annulus.  The  puffed  gas  mode  occurs  when  the  gas  In 
provided  to  the  plasma  gun  through  a  fast  opening  gas  valve.  Although 
not  generally  used  for  experimentation,  gas  can  be  provided  to  the 
plasma  gun  continuously.  The  prefill  mode  generally  produces  the 
snowplow  mode.  Depending  on  the  gas  arrival  time  and  the  gas  density  in 
the  gun  annulus,  the  puffed  fill  gas  operation  produces  either  snowplow 
or  deflagration  mode  characteristics.  The  continuous  gas  fill  generally 
produces  the  deflagration  mode. 

The  coaxial  plasma  gun  Is  similar  to  the  pulsed  dielectric  erosion 
accelerator  [32-42].  Behavior  of  the  erosion  accelerator  has  been  shown 
to  manifest  aspects  of  both  snowplow  and  deflagration  behavior.  The 
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difference  between  the  pulsed  dielectric  erosion  accelerator  and  the 
coaxial  plasma  gun  Is  the  dielectric  erosion  accelerator  uses  an 
electrically  stressed  and  ablated  solid  Insulator  as  the  sole  plasma 
source;  the  coaxial  plasma  gun  uses  a  gas  supplied  to  the  gun.  Because 
of  the  nature  of  the  breakdown  and  evolution  of  the  dielectric.  It  Is 
probable  the  pulsed  dielectric  erosion  accelerator  will  produce  a 
snowplow  mode. 


The  plasma  focus  Is  a  product  of  the  coaxial  plasma  gun  operating  In  the 
snowplow  mode  [43-72],  The  plasma  sheath  traveling  the  length  of  the 
gun  converges  (pinches)  upon  Itself  at  the  muzzle  forming  a  dense 
plasma.  The  mechanisms  for  plasma  equilibration  In  a  PF  are  complex. 
Involving  the  radial  collapse  of  the  sheath,  the  conversion  of  plasma 
sheath  kinetic  and  magnetic  energy  Into  thermal  energy  and  the  chaotic 
turbulence  created  In  these  processes.  When  deuterium  (D2)  gas  or  a 
deuterium  gas  mixture  Is  used  In  the  snowplow  mode,  high  energy  neutrons 
are  formed  as  a  result  of  the  D-D  nuclear  fusion  reactions.  The  PF  can 
thus  serve  as  an  Intense  neutron  source.  The  PF  work  Is  reported  in 
this  dissertation  In  Its  relation  with  the  operation  and  behavior  of  the 
coaxial  plasma  gun  and  the  total  nuclear  fusion  neutron  output.  The 
actual  physics  of  a  plasma  focus  Is  beyond  the  scope  of  this 
dissertation  and  Is  not  examined. 


The  coaxial  plasma  gun  has  a  long  history  going  back  to  the  early 
1960's.  Related  work  had  been  done  prior  to  that  time.  Electromagnetic 
shock  tubes  [73-84]  have  been  used  to  create  plasmas.  These  shock  tubes 
can  be  used  to  create  plasmas  with  high  Mach  numbers.  Theta  pinch  guns 


K 

ft 

I 


I 

I 

I 


mow, 


m 


[85-87],  both  straight  and  conical,  have  been  used  to  generate  plasmas. 
The  behavior  of  z-plnches  [88-96]  where  a  current  flows  along  the  length 
of  the  plasma  Is  similar  to  the  behavior  of  coaxial  plasma  guns.  As 
Flshblne  [97]  notes,  the  coaxial  plasma  gun  In  the  snowplow  mode  is 
topologically  equivalent  to  a  z-plnch.  While  this  related  work  Is 
Interesting  and  deserving  of  further  study.  It  Is  also  beyond  the  scope 
of  this  dissertation.  It  Is  mentioned  to  give  a  flavor  of  devices 
similar  to  the  coaxial  plasma  gun. 
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1.2  INDIVIDUAL  AND  ADMINISTRATIVE  PERSPECTIVE 


From  25  November  1983  to  16  January  1984,  coaxial  plasma  gun  experiments 
were  performed  by  members  of  the  Experimental  Section,  Plasma  Physics 
Branch,  Simulation  Division,  Nuclear  Technology  Office  of  the  Air  Force 
Weapons  Laboratory  (AFWL)  on  Klrtland  AFB  NM.  There  were  a  total  of  177 
firings  (shots)  of  the  PUFF  bank  Into  a  coaxial  plasma  gun  load.  The 
personnel  performing  the  experiments  were:  Capt  Charles  W.  Beason,  Dr. 
James  H.  Degnan,  Lt  Michael  P.  Snell,  Lt  Stephen  W.  R.  Warren  and  the 
author.  These  Air  Force  Weapons  Laboratory  personnel  were  assisted  by 
Airman  Peter  J.  Lagomarslno,  Dale  L.  Ralph  and  Brian  N.  Woolweber  of  the 
Air  Force  Weapons  Laboratory  and  Jack  D.  Graham  and  Emmanuel  A.  Lopez  of 
Maxwell  Laboratories  Inc.  of  Albuquerque.  This  particular  series  of 
experiments  was  subsequent  to  an  experimental  series  on  the  PUFF 
capacitor  bank  performed  In  February  1983  by  Dr.  Degnan,  Lt  Warren  and 
Robert  J.  Rlchte^-Sand,  all  of  the  Air  Force  Weapons  Laboratory. 
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The  Initial  results  from  this  series  of  experiments  were  reported  In 
1984  [98-101].  An  overview  of  the  experimental  effort  was  published  In 
1987  by  Degnan  et  al.  [102].  Calculated  high  energy  photon  spectra  from 
these  experiments  were  published  by  Beason  [103]  and  Warren  et  al. 

[104].  In  this  dissertation,  the  coaxial  plasma  gun  current  and 
magnetic  field  behavior  Is  specifically  discussed  and  analyzed. 

The  data  given  here  deal  with  the  subset  of  the  PUFF  experimental  effort 
from  29  December  1983  to  12  January  1984.  In  this  series,  small  § 
loops,  Rogowskl  colls  and  capacitive  voltage  monitors  were  used  to 
analyze  the  flow  of  plasma  current  down  the  length  of  the  coaxial  plasma 
gun.  Although  Rogowskl  coils  and  capacitive  voltage  probes  were  used 
for  the  total  experimental  effort,  only  In  this  experimental  subset  were 
the  §  probes  used.  In  this  portion  of  the  experimental  series  there  was 
a  total  of  51  shots.  Of  these  51  data  shots,  12  were  shots  where  the 
circuit  was  shorted,  either  because  the  gas  valve  did  not  fire  properly 
or  because  there  was  a  breakdown  at  various  regions  of  the  transmission 
line/insulator /vacuum  Interfaces.  The  remainder  of  the  shots  yielded 
data  sufficient  for  data  analysis  of  the  coaxial  plasma  gun.  On  that 
data  is  this  dissertation  produced. 

1.3  APPLICATIONS  OF  COAXIAL  PLASMA  GUNS 

Coaxial  plasma  guns  have  been  studied  and  considered  for  several 
differing  kinds  of  applications.  Even  If  coaxial  plasma  guns  are  not 
completely  understood,  they  have  been  proposed  for  and  are  used  In 
various  applications.  While  the  applications  are  not  vast,  they  do  vary 
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considerably.  These  Include  use  In  aerospace  and  extraterrestrial 
transport  [105-110],  excitation  of  gas  lasers  [111-116],  plasma 
Insertion  Into  experimental  systems  [117-133],  fueling  for  proposed 
thermonuclear  reactors  [134-138],  breeding  fissionable  material 
[139,  140]  and  treatment  of  metallic  surfaces  [141-143]. 


1.4  RATIONALE  FOR  STUDY 


Although  many  researchers  feel  the  flow  of  the  plasma  In  a  coaxial 
plasma  gun  Is  well -understood  and  not  worthy  of  Investigation,  it  Is  not 
clear  this  Is  the  case.  Len's  work  shows  complexities  do  exist  In  the 
operation  of  the  plasma  gun.  Other  researchers,  aside  from  observing 
that  current  flows  In  a  plasma  sheath  and  the  plasma  sheath  can  be 
parabolic  In  the  radial-axial  plane  (see,  for  example,  the  sheath 
profiles  In  references  69  and  144),  little  research  has  been  devoted  to 
understanding  the  behavior  of  the  plasma  Internal  to  the  coaxial  gun. 

It  Is  not  clear  the  plasma  sheath  is  not  also  a  function  of  gas 
breakdown  and  coaxial  gas  gun  Insulator  effects.  Few  published  studies 
have  been  performed  that  monitor  the  specific  behavior  of  the  plasma 
sheath  In  the  gun.  Whether  this  is  due  to  greater  Interest  In  the 
behavior  of  the  plasma  focus  or  not,  the  behavior  of  the  current  sheath 
generally  Is  assumed  and  analysis  proceeds  from  that  point.  The  work 
described  here  indicates  the  current  sheath  behavior  may  show 
characteristics  that  an  assumed  current  sheath  behavior  does  not 


Additionally,  the  AFWL  gun  differs  from  the  previously  reported  coaxial 
plasma  guns  In  several  respects.  Although  the  details  are  reported  In 
subsequent  sections,  these  dlstlnctlves  are  stated  here.  The  first 
difference  Is  the  Insulator  Is  distant  and  Isolated  from  the  gas 
breakdown,  l.e.,  the  gas  does  not  (usually)  breakdown  at  an 
Insulator /vacuum  interface.  The  gas  Insertion  point  Is  obscured  from 
the  coaxial  gun  Insulator  by  means  of  anodized  helical  baffled 
electrodes.  The  second  difference  Is  the  voltage  regime  of  operation. 
The  charge  voltage  for  the  coaxial  plasma  gun  ranges  from  60  to  70  kV  in 
the  experimental  sequence  described  here.  Most  reported  work  on  coaxial 
plasma  guns  has  been  at  voltages  of  40  kV  or  less.  The  stored  energy 
delivered  to  the  coaxial  plasma  gun  from  the  PUFF  capacitor  bank  ranges 
from  130  to  176  kJ.  The  energy  used  In  many  other  coaxial  plasma  guns 
ranges  from  10  kJ  up  to  1  MJ.  Related  to  this,  the  Inductance  of  the 
AFWL  PUFF  capacitor  back  delivering  energy  to  the  coaxial  gun  Is 
approximately  9  nH,  less  than  most  coaxial  gun  systems.  (The  electrodes 
and  the  coaxial  gun  connections  Increase  the  system  Inductance  to  29 
nH.)  A  third  difference  Is  the  AFWL  plasma  gun  uses  a  rod  array  for  an 
outer  electrode.  This  Is  a  "squirrel  cage"  geometry.  Many  other 
reported  coaxial  plasma  guns  have  solid  outer  electrodes.  Another 
difference  between  the  AFWL  PUFF  coaxial  plasma  gun  and  other  coaxial 
plasma  guns  Is  the  gas  fill  mechanism.  In  many  other  guns,  the  gas  Is 
Injected  at  the  central  anode  near  the  vacuum/dielectric  Insulator 
Interface  or  the  gun  Is  filled  In  a  static  mode.  In  the  AFWL  gun,  the 
gas  Is  Inserted  In  the  gun  through  a  fast  gas  valve  away  from  the 
vacuum/dielectric  Interface.  In  other  experiments,  where  §  probes  have 
been  reported  as  being  Inserted  in  the  plasma,  they  generally  are 


Inserted  through  the  outer  electrode.  In  this  study,  these  probes  are 
Inserted  through  the  Inner  electrode. 

1.5  PURPOSE  AND  TECHNICAL  OBJECTIVES  OF  THE  CURRENT  STUDIES 

This  purpose  for  this  study  Is  to  analyze  the  current  behavior  of  a 
coaxial  plasma  gun.  This  analysis  will  be  based  on  the  experimental 
data  taken  from  detailed  magnetic  field  and  current  measurements  of  the 
AFWL  coaxial  plasma  gun  driven  by  the  72  pF  PUFF  capacitor  bank.  Both 
the  total  current  and  the  current  within  the  coaxial  plasma  gun  will  be 
analyzed.  Additionally,  the  D-D  nuclear  fusion  product  neutrons 
resulting  from  the  experiment  will  be  compared  to  standard  plasma  focus 
current  scaling. 

The  stated  purpose  gives  rise  to  four  technical  objectives  addressed  in 
this  dissertation: 

1)  Observe  the  plasma  sheath  behavior  In  the  AFWL  PUFF  coaxial 
plasma  gun; 

2)  Provide  a  simple  model  of  the  plasma  sheath  behavior; 

3)  Correlate  the  plasma  sheath  behavior  with  Independent  observable 
behavior  In  the  AFWL  PUFF  coaxial  plasma  gun.  Including  the 
observables  of  the  probe  voltage,  the  neutron  yield  and  the 
system  Inductance;  and 
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4)  Characterize  the  behavior  of  the  plasma  sheath  within  the 
accuracy  of  the  experimental  data. 
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1.6  OVERVIEW  OF  THE  CURRENT  STUDIES 
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2.0  EXPERIMENTAL  CONSIDERATIONS 


The  experimental  hardware  used  In  this  series  of  experiments  Is 
discussed  in  this  section.  Both  the  experimental  equipment  and  the 
diagnostic  hardware  are  discussed  here. 

As  an  overview.  Figure  2  shows  a  photograph  of  the  PUFF  coaxial  gun 
experiment.  The  PUFF  b*nk  is  so  named  because  it  was  built  to  perform 
experiments  with  injected  or  puffed  gas.  The  upper  portion  of  one  of 
the  capacitor  bank  modules  is  seen  in  the  left  rear  of  the  picture.  The 
transmission  line  and  insulating  Mylar  film  is  seen  in  the  middle.  At 
the  center  of  the  transmission  line  Is  the  vacuum  vessel  containing  the 
coaxial  plasma  gun.  At  the  top  of  the  vacuum  vessel  is  the  gas  line  for 
the  .pper  gas  valve  used  In  some  of  the  experimental  series  described 
here.  Lead  bricks  and  lead  sheets  are  mounted  on  the  transmission  line 
to  keep  the  transmission  line  and  the  electrodes  from  being  damaged  by 
the  mechanical  shock  created  by  the  sys*  m  current  at  discharge  (on  the 
order  of  1.2  to  3.0  MA  when  the  total  bank  voltage  is  60  kV). 

A  schematic  of  the  PUFF  coaxial  gun  system  is  given  in  Figure  3.  The 

coaxial  gun  consists  of  the  anode  and  cathode  structures.  Except  for 

the  rod  structure  of  the  cathode  (24  rods),  the  coaxial  plasma  gun  Is 

azimuthally  symmetric  along  the  center  line.  A  fast  gas  valve  feeds  a 

3  -5  3 

flow  volume  of  about  25  cm  (2.5><10  m  )  In  the  hollow  center  of  the 
anode,  entering  the  gun  annulus  through  holes  drilled  in  the  anode. 

Where  It  enters  the  plasma  gun,  the  gas  will  electrically  break  down 
when  it  is  stressed  beyond  its  dielectric  strength.  When  it  is  used, 
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Figure  3.  Coaxial  gas  gun  schematic. 


the  upper  gas  valve  feed  Is  mounted  above  the  anode  (along  the 


centerline)  atop  the  vacuum  vessel.  The  current  and  voltage  are  fed  to 


the  plasma  gun  by  helical  coaxial  feed  electrodes.  (These  electrodes 


were  used  by  Turchl  et  al.  In  AFWL  SHIVA  experiments  [145].)  The  anode 


Is  attached,  mechanically  and  electrically,  to  the  lower  helical 


electrode.  The  cathode  Is  similarly  attached  to  the  upper  helical 


electrode.  The  electrodes  are  helically  baffled  to  reduce  the  Incidence 


of  Insulator  breakdown  from  exposure  to  ultraviolet  light  created  by 


electrical  discharges.  The  calculated  Inductance  of  the  helical  baffle 


structure  Is  10.1  nH  from  the  transmission  line  to  the  base  of  the 


plasma  gun  electrodes. 


A  polyethylene  Insulator  electrically  separates  the  two  electrodes  in 


the  vacuum  region.  The  Insulator  Is  sloped  according  to  Milton's 
findings  [146]  to  reduce  the  possibility  of  Insulator/vacuum  Interface 


voltage  breakdown.  A  vacuum  vessel  surrounds  the  coaxial  plasma  gun  and 


Is  attached  to  the  upper  helical  electrode.  Prior  to  the  feed  gas 


Insertion,  the  coaxial  gas  gun  Is  evacuated  to  about  10"°  Torr.  At  the 


time  of  the  capacitor  bank  discharge,  slow  gas  valve  leaks  raise  the 


background  vacuum  vessel  pressure  to  about  10  Torr. 


2.1  AFWL  PUFF  CAPACITOR  BANK 


The  AFWL  PUFF  capacitor  bank  consists  of  two  modules  made  of  capacitors 


and  rail  gap  switches.  Each  module  consists  of  24  capacitors  and  4  rail 
gap  switches.  The  total  effective  capacitance  of  the  PUFF  bank  Is  72 
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pF.  The  modules  feed  a  parallel  plate  transmission  line  connected  to 
the  load. 

The  modular  capacitor  bank  consists  of  capacitors  In  a  series/parallel 
configuration.  Twelve  capacitors  (In  parallel  configuration)  are 
connected  to  the  upper  transmission  line  through  four  rail  gap  switches. 
The  other  twelve  capacitors  are  connected  to  the  lower  transmission  line 
through  four  rail  gap  switches.  Since  the  upper  polarity  Is  negative 
and  the  lower  polarity  Is  positive,  the  effective  voltage  delivered  to 
load  Is  twice  the  charging  voltage. 

The  capacitors  are  all  Maxwell  Laboratories  high  energy  density 
capacitors,  model  number  32184  [147],  These  have  a  nominal  capacitance 
of  6  pF.  They  are  rated  to  60  kV  (10.8  kJ  stored  electrical  energy) 
with  up  to  65%  voltage  reversal.  They  are  rated  to  a  peak  current  of 
230  kA  and  a  life  of  over  10,000  (charge  and  discharge)  cycles.  The 
approximate  Inductance  for  a  single  capacitor  Is  35  nH. 

The  rail  gap  switches  are  all  Maxwell  Laboratories  rail  gap  switches, 
model  number  40200  [148].  They  are  rated  for  switching  voltages  from  60 
to  120  kV.  Each  rail  gap  Is  rated  to  conduct  a  maximum  of  750  kA  and  up 
to  10  C  of  charge.  Switch  jitter  Is  less  than  2  ns.  Typical  single 
switch  Inductance  Is  20  nH.  Minimum  rated  switch  life  Is  5000  shots. 

Experimental  Inductance  for  each  module  (including  the  24  capacitors  and 
the  four  rail  gap  switches)  is  12  to  14  nH.  Since  the  two  modules  are 
In  parallel,  the  total  PUFF  Inductance  Is  6  to  7  nH. 


In  this  series  of  experiments,  one  leg  of  the  transmission  line  has  an 
Inductance  of  3.3  nH.  Since  both  legs  of  the  transmission  line  are  In 
parallel,  the  total  transmission  line  Inductance  Is  1.7  nH.  Excluding 
the  load,  the  PUFF  system  Inductance  Is  8  to  9  nH. 

2.2  TRANSMISSION  LINE 

The  transmission  line  has  three  parts.  Two  Identical  parts  attach  to 
one  of  the  two  switch  outputs.  These  are  61  4"  (1.930  m)  wide  and  3'  6" 
long  (1.067  m)  aluminum  plate  pairs.  The  third  part  of  the  transmission 
line  (also  an  aluminum  plate  pair)  connects  the  other  two  portions  of 
the  transmission  line  to  the  helical  coaxial  gun  feed  electrodes.  The 
dimensions  of  this  third  transmission  line  portion  are  6’  by  6'  (1.829 
by  1.829  m)  excluding  the  area  required  by  the  helical  feed  electrodes. 
The  helical  feed  electrodes  are  In  the  center  of  the  transmission  line. 
These  electrodes  have  a  diameter  of  about  2'  (0.6  m).  The  transmission 
line  has  a  total  capacitance  of  62.5  nF  for  the  whole  transmission  line, 
from  the  switches  to  the  feed  electrodes.  This  assumes  a  dielectric 
constant  of  2.3  for  the  Mylar  (polyethylene  erephthalate)  Insulation 
and  a  transmission  line  electrode  separation  of  92.2  mils  (2.34x10  m). 

2.3  COAXIAL  PLASMA  GUN 

The  coaxial  gun  consists  of  the  two  electrodes,  the  Inner  anode  and  the 
outer  cathode.  The  anode  outer  diameter  is  5.125"  (0.1302  m).  The 
cathode  Inner  diameter  Is  7.0"  (0.1778  m).  The  coaxial  gun  is  24.75" 


(0.6287  m)  long.  Using  the  formula  for  coaxial  transmission  line 
Inductance 

y  z  h 

L  =  In  (  h_  ) 

2  *  a 

where  L  Is  Inductance  In  Henries,  y  Is  permeability  of  free  space 

0 

(4xxio~7  Henries /meter),  z  Is  length  of  the  coaxial  region,  b  Is  outer 
radius  and  a  Is  Inner  radius.  The  coaxial  gun  Inductance  Is  about  39.2 
nH.  From  the  base  of  the  helical  feed  electrodes  to  the  center  of  the 
gas  feed  holes  In  the  anode,  the  Inductance  Is  15.3  nH. 

The  capacitance  of  the  coaxial  gun  can  be  derived  from  the  relation 

2*£  z 
C  «  0 

In  (  5  ) 

a 
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where  e  Is  permittivity  of  free  space  (8.854x10  Farads/meter)  and  a, 

0 

b  and  z  are  previously  defined.  The  coaxial  plasma  gun  capacitance  Is 
0.11  nF.  This  Is  small  compared  to  the  PUFF  bank  capacitance  (72  yF) 
and  Is  neglected. 

Two  views  of  the  Inner  electrode  can  be  seen  In  Figures  4  and  5.  In 

Figure  4,  the  Inner  electrode  Is  not  attached  to  the  gas  gun  prior  to 

mounting  on  the  lower  electrode.  The  array  of  96  gas  Inlet  holes  can  be 
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seen  on  the  electrode.  These  gas  Inlet  holes  are  0.25"  (6.35x10  m)  In 

_2 

diameter.  The  gas  Inlet  holes  cover  a  length  of  1  1/2"  (3.81x10  m) 
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Figure  4.  PUFF  plasma  gun  Inner  electrode  (unmounted). 
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Figure  5.  PUFF  plasma  gun  Inner  electrode  (mounted). 


from  the  center  of  the  top  ring  of  gas  Inlet  holes  to  the  center  of  the 
bottom  ring.  The  distance  from  the  bottom  of  the  electrode  to  the 
bottom  ring  of  gas  Inlet  holes  Is  5  3/4“  (0.1461  m).  The  holes  In  the 
upper  portion  of  the  anode  are  for  the  Insertion  of  §  probes  Into  the 
annular  region  of  the  plasma  gun.  In  Figure  5,  the  anode  is  mounted  In 
the  transmission  line  and  the  cathode  Is  in  the  background. 

The  outer  electrode  consists  of  24  copper  rods.  These  rods  are  1/2“ 
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(1.27><10  m)  In  diameter.  The  electrode  array  is  reinforced  with 
machined  disks  of  steel  for  mechanical  stability.  A  side  view  of  these 
electrodes  Is  shown  In  Figure  6.  Both  the  upper  and  lower  coaxial  gun 
copper  electrodes  are  mounted  on  the  upper  helical  feed  electrode.  It 
1  can  be  seen  the  cathode  rods  are  about  1"  (2.5x10  m)  shorter  than  the 
anode.  The  visual  distinction  between  the  electrodes  and  the  support 
rings  is  lost  since  both  are  covered  with  powdery  residue  from  the 
experimental  series. 

2.4  FEED  GAS  VALVES 

Two  gas  valves  are  used  in  this  experimental  series.  The  first  (primary 
or  lower)  gas  valve  feeds  gas  to  the  plasma  gun  annulus.  The  primary 
gas  valve  is  used  in  every  shot  In  the  series.  The  second  (secondary  or 
upper)  gas  valve  feeds  gas  to  the  centerline  region  of  the  anode  tip 
(coaxial  gun  muzzle).  This  valve  inserts  additional  gas  into  the 
coaxial  plasma  gun.  We  examine  the  effects  of  additional  gas  loading  on 
the  plasma  in  the  coaxial  plasma  gun. 


; 
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In  the  experiments  described  here,  the  feed  gas  Is  deuterium  (heavy 
hydrogen).  The  gas  arrival  Is  measured  In  the  gun  by  using  fast  Ion 
gauges  [149,  150].  These  Ion  gauges  are  6AH6  vacuum  tubes  with  the 
protective  glass  cover  removed.  Oscilloscope  traces  for  typical 
calibration  shots  with  the  6AH6  tubes  are  shown  In  Figure  7. 

2.4.1  Lower  Gas  Valve 

The  lower  gas  valve  Is  based  on  the  design  of  Henlns  and  Marshall 
[151,  152].  The  valve  assembly  Is  seen  In  Figure  8.  This  Los  Alamos 
National  Laboratory  designed  gas  valve  releases  a  gas  volume  of  3.2  cm 
at  ambient  temperature  and  900  psla  (6.2»106  Pascals).  This  yields  a 
mass  of  32.9  mg  of  deuterium  (D2)  gas.  The  feed  gas  line  Is  on  the  side 
of  the  valved  assembly.  A  pneumatic  jack,  at  the  base  of  the  valve 
assembly.  Is  used  to  compress  a  Lexan  (polycarbonate  plastic)  rod  In  the 
extended  portion  of  the  assembly.  The  roa  Is  about  juh  <.0.76  m)  long. 
The  hydraulic  jack  provides  compression  through  the  phenolic  plastic 
base  and  a  wooden  plug  to  the  Lexan  rod.  The  operating  compression  of 
the  hydraulic  jack  is  2000  psl  (1.4»107  Pascals). 

The  phenolic  base  above  the  jack  keeps  a  wooden  plug  In  contact  with 
(and  maintain  congressional  stress  on)  the  valve  rod.  The  wooden  plug 
Is  1/2"  (1.27x10  m)  diameter  and  has  a  small  hole  drilled  along  the 
axial  centerline.  A  small  diameter  magnet  wire  is  Inserted  through  this 
hole.  Several  drops  of  water  are  Inserted  into  the  hole  and  sealed  In 
the  plug  with  paraffin  wax.  The  wooden  plug  Is  exploded  by  a  current 
discharge  generated  by  the  capacitor  bank  through  the  wire.  The  water 
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In  the  plug  assists  the  exploding  wire  In  the  plug  destruction.  When 
the  wooden  plug  explodes,  a  compress lonal  longitudinal  wave  propagates 
through  the  Lexan  rod,  allowing  the  gas  into  the  Internal  anode  region. 

The  lower  valve  discharge  circuit  consists  of  a  12  yF  capacitor  bank 
charged  to  5  kV.  The  rise  time  for  the  discharge  circuit  Is  5  ys.  As 
might  be  expected,  the  gas  delay  into  the  coaxial  plasma  gun  Is  weakly 
dependent  on  the  charging  voltage.  (The  destruction  of  the  plug 
provides  the  compresslonal  shock  to  the  Lexan  rod.  Once  the  voltage 
plateau  where  the  plug  Is  destroyed  is  reached,  additional  voltage  adds 
little  to  the  effect.)  However,  since  it  is  the  compresslonal 
longitudinal  wave  In  the  Lexan  that  allows  the  gas  to  enter  the  gun,  rod 
compression  Is  a  consideration.  The  fitted  relation  of  experimental 
parameters  is 

Td  =  2080  -  0.4881*P 

where  Td  Is  time  delay  of  the  gas  into  the  coaxial  plasma  gun  annular 
region  in  ys  and  P  Is  jack  compresslonal  pressure  In  psl.  This  relation 
yields  time  delays  accurate  to  ±3.3%.  Typical  operating  delays  range 
from  1100  to  1300  ys.  With  too  small  compresslonal  pressures  (generally 
1000  psl  and  below),  the  plug  firing  becomes  unreliable  because  physical 
contact  is  not  assured  between  the  plug  and  the  valve.  Above  2250  psi, 
the  wooden  plug  tends  to  fracture  (and  become  useless)  prior  to  firing. 

The  gas  valve  time  delay  has  two  parts.  The  first  is  determined  by  the 
Lexan  rod  compresslonal  velocity;  this  is  about  600  to  700  ys.  The 
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second  delay  is  determined  by  the  gas  acoustical  speed  from  the  valve  to 
the  gun  annulus.  For  a  400  to  700  ps  acoustic  gas  delay,  this  yields  an 


acoustic  velocity  on  the  order  of  200  m/s  for  the  D2  fill  gas. 

The  gas  valve  time  delays  were  selected  In  a  series  of  experiments 
performed  prior  to  those  described  in  this  dissertation.  These 
experiments  optimized  the  time  delays  according  to  the  current  delivered 
to  the  gun  as  measured  by  the  chamber  Rogowski  coll  and  the  neutron 
production  at  the  gun  muzzle.  The  neutron  yield  Is  a  positive 
monotonic  increasing  function  of  the  current  delivery  to  the  gun  muzzle; 
thus,  the  greater  the  neutron  yield,  the  greater  the  current  that  has 
been  delivered  to  the  end  of  the  coaxial  plasma  gun. 

In  this  series  of  experiments,  the  gas  valve  time  delays  were  selected 
to  allow  energy  delivery  when  the  deuterium  fill  gas  reaches  a  Paschen 
breakdown.  (This  is  different  from  the  case  where  energy  delivery 
occurs  after  the  fill  gas  has  reached  an  equilibrium  state).  After  the 
gas  valve  Is  fired,  gas  Is  released  and  streams  Into  the  plasma  gun 
annulus..  The  leading  edge  (or  density  front)  of  this  gas  delivery 
causes  Paschen  breakdown  to  occur.  This  gas  breakdown  carries  the 
Initial  current  delivered  to  the  plasma  gun. 

2.4.2  Upper  Gas  Valve 


The  secondary  or  upper  gas  valve  Is  an  electromagnetic  hammer  valve  of 
Lawrence  Livermore  National  Laboratory  design  [153,  154].  The  secondary 
valve  was  used  after  the  eighth  shot  of  10  January  1984  and  for  every 
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shot  thereafter  In  this  series.  The  disassembled  upper  valve  Is  shown 
In  Figure  9.  The  valve  consists  of  a  solenoldal  coll,  a  restoring 
spring  and  a  valve  rod  that  passes  through  the  solenoid.  The  solenoid 
volume  can  be  Identified  by  the  white  electrical  Insulation  surrounding 
It  and  the  gas  Input  feed  line  connection  at  Its  end.  Gas  Is  fed  Into 
the  valve  plenum  through  the  feed  connection.  Voltage  Is  applied  to  the 
solenoid  through  electrical  connections  at  the  valve  end.  Once  a 
voltage  Is  applied  to  the  solenoid,  the  gas  valve  rod  is  drawn 
(  lectromagnetlcally)  Into  the  solenoid  and  opens  the  seated  valve- 
flange  connection,  allowing  gas  to  escape.  When  the  upper  valve  Is  no 
longer  energized,  the  restoring  spring  reseats  and  reseals  the  valve. 

The  upper  valve  Is  mounted  Inside  the  vacuum  chamber.  The  external 
connections  are  seen  In  Figure  10.  The  upper  gas  valve  Is  located  about 
4"  (10  cm)  from  the  anode  surface.  The  gas  feed  line  Is  at  the  center 
of  the  vessel  vacuum  top  plate.  The  electrical  connections  are  on 
either  side  of  the  gas  feed  line.  The  upper  gas  valve  touches  the 
vacuum  vessel  plate.  Since  the  gas  In  the  gas  valve  Is  deuterium  and 
the  vacuum  vessel  was  biased  (when  the  PUFF  bank  was  energized)  to  -30 
kV,  the  Mylar  sheet  and  electrical  insulation  on  the  electrical  lines 
are  provided  to  reduce  the  chance  for  an  electrical  discharge  to  the 
electrical  lines  or  the  gas  line.  The  results  of  a  spark  Ignition  of 
the  gas  Is  both  dangerous  and  damaging. 

3 

The  upper  valve  releases  a  gas  volume  of  3  cm  at  ambient  temperature 
and  45  psla  pressure.  This  yields  a  mass  of  1.54  mg  of  D2  gas.  The 
upper  gas  valve  Is  very  sensitive  to  the  capacitor  discharge  voltage.  A 
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voltage  regulator  Is  required  to  stabilize  the  discharge  voltage  and  the 
quantity  of  gas  released  by  the  upper  valve.  The  time  delay  between 
energizing  the  upper  valve  and  firing  the  PUFF  capacitor  ranges  from 
3.75  to  3.90  ms.  Most  of  this  delay  Is  required  to  energize  the  valve 
solenoid  Inductance.  Although  the  two  gas  valve  delays  differ  by  some 
2.6  ms,  the  gas  from  the  two  valves  Is  Inserted  Into  the  plasma  gun  at 
approximately  the  same  time. 

An  electrically  disrupted  diaphragm  valve  was  tried  prior  to  using  the 
secondary  electromechanical  valve.  When  a  voltage  pulse  Is  applied  to 
this  valve,  a  resistive  metal  foil  diaphragm  separating  a  high  pressure 
plenum  ruptured.  This  valve  did  not  completely  vaporize  the  diaphragm 
and  scattered  debris  Into  the  coaxial  plasma  gun.  For  this  reason,  this 
valve  design  was  abandoned.  It  Is  presented  here  for  the  sake  of 
completeness. 

2.5  EXPERIMENTAL  DIAGNOSTIC  DEVICES 

In  this  section,  the  diagnostic  devices  used  In  these  experiments  will 
be  described.  General  principles  of  operation  will  be  given  and  the 
specifics  of  each  diagnostic  device  will  follow.  Applications  to  this 
experimental  series  described  here  will  be  emphasized. 


Rogowskl  colls  are  the  diagnostic  devices  for  measuring  the  current  from 
the  transmission  line  and  the  delivered  coaxial  plasma  gun  current. 


Three  Rogowskl  colls  are  used.  Two  Rogowskl  colls  (wound  in  opposite 
directions)  are  used  to  measure  the  transmission  line  current.  These 
are  located  In  the  transmission  line  outside  the  helical  feed  electrodes 
and  are  the  counter-rotating  Rogowskl  colls.  The  third  Rogowskl  coil  is 
located  at  the  base  of  the  anode  electrode.  This  is  the  center  or 
chamber  Rogowskl  coil. 

2.5. 1.1  Rogowskl  Coil  Theory.  Since  Rogowskl  and  Steinhaus's  paper  in 
Archly  fUr  Elektrotechnik  In  1912,  Rogowskl  colls  have  been  used  to 
measure  current  [155].  A  Rogowskl  coil  measures  the  total  current 
passing  through  an  area  surrounded  by  the  coil.  Several  comparatively 
recent  papers  [156,  157]  have  been  written  on  Rogowskl  coil  theory. 
However,  the  theory  Is  relatively  simple. 

Two  of  Maxwell's  equations  are  required  to  show  the  relation  between  the 
Input  current  I  (observed  by  a  Rogowskl  coil)  and  the  induced  voltage  V. 
These  equations  are: 

v  x  H  =  J  +  (2.5. 1.1.1) 

at 

and 

v  x  E  =  -  (2. 5. 1.1. 2) 

at 

If  the  dielectric  source  term  (_  )  is  negligible  compared  to  the  current 

at 
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source  term,  1.  e.  ( _  «  J),  the  remaining  relation  is 
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v  x  H  *  J 


(2.5.1.1.1a) 


Using  the  constitutive  relation  between  B  and  H,  that  Is,  B  =  y  H,  we 
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(2. 5.1. 1.3) 


If  we  take  the  surface  Integral  over  a  closed  surface,  we  then  have 


J  (v  x  b)  •  dS  -  uo  J  J  *  dS  *  uoI 


(2. 5. 1.1.4) 


where  I  Is  defined  to  be  the  total  current  passing  through  the  volume 
defined  by  the  closed  curve.  Transforming  the  surface  Integral  on  the 
left  hand  side  of  equation  (2. 5. 1.1. 4)  Into  a  line  Integral  using 
Stokes'  theorem,  we  have 


J  B  •  dl  =  uoI 


(2.5. 1.1.5) 


We  can  then  transform  the  differential  length  dl  Into  an  equivalent 
relation  with  a  differential  normal  vector  dn  or  a  differential  normal 
cross-sectional  area  dA, 


dl  =  dn  =  dA 
L~  N~  A- 


(2. 5. 1.1. 6) 


where  L  Is  length  of  Rogowskl  coll,  N  Is  number  of  turns  In  the  Rogowski 
coll  and  A  Is  Rogowskl  coll  cross-sectional  area.  The  Rogowskl  coll 
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characteristics  (L,  N  and  A)  are  constant  In  this  analysis.  Using 
equations  (2. 5. 1.1. 5)  and  (2. 5. 1.1. 6),  we  have 

I  =  J  B  •  dn  =  J_  f  B  *  dA  (2.5. 1.1.7) 

ny  ny  A  J 

0  0 

where  n  Is  defined  to  be  (N/l),  linear  turn  density.  Defining  a 
magnetic  flux  $  passing  through  a  coll  of  cross-sectional  area  A,  we 
have 


#  =  J  B  •  dA  (2. 5. 1.1. 8) 

and  equation  (2.5. 1.1.8)  becomes 

I  *  JL  (2.5. 1.1.9) 

ny  A 

0 

We  invoke  equation  (2. 5. 1.1. 2)  to  apply  equation  (2. 5. 1.1. 9)  to  the 
experiment.  Integrating  the  surface  integral  of  equation  (2. 5. 1.1. 2) 
yields 


f  (v  x  E)  •  dS  =  -  f  ^  •  dS  (2.5.1.1.10) 

at 

Since  the  differential  surface  Is  independent  of  time,  we  can  remove  the 
time  differential  from  the  Integral 

[  (v  -  E)  •  dS  =  -  d_  f  B  •  dS  (2.5.1.1.10a) 

at  J 
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Transforming  the  left  hand  side  of  this  equation  into  a  line  integral 
with  Stokes 1  theorem,  we  have 


f  E  •  dl  =  -  f  B  •  dS 

J  at  J 


(2.5.1.1.11) 


Defining  an  Induced  voltage  V  to  be  the  line  integral  on  the  left  hand 
side  and  noting  the  magnetic  flux  4  Is  equal  to  the  integral  on  the 
right  hand  side,  this  equation  becomes 


V  =  - 


a4 


at 


(2.5.1.1.12) 


Defining  the  magnetic  flux  4  as  a  function  only  of  time,  equation 

(2.5.1.1.12)  becomes 


V  =  - 


d4 


dt 


(2.5.1.1.12a) 


This  relation  is  Lenz's  rule  from  electrodynamics.  Substituting 
equation  (2.5.1.1.12a)  into  the  equation  (2.5.1.1.10),  we  have 


V  =  -  ny  A  ^ 
0  dt 


(2.5.1.1.13) 


If  the  Rogowskl  coll  Is  not  self-integrating  and  needs  to  be  integrated 
(in  our  case,  by  a  passive  RC  Integrator),  we  have 


ny  A 

V  =  -  0  I 


RC 


(2.5.1.1.14) 
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The  relation  between  the  Induced  voltage  V  and  the  current  I  passing 
through  the  Rogowskl  coll  then  becomes 

KR 

V  =  -  _  I  (2.5.1.1.14a) 

RC 

where  KR,  the  Rogowskl  coll  calibration  factor.  Is  equal  to  np  A  and  RC 
Is  the  passive  integrator  time  constant.  If  other  integration  methods 
are  used,  this  Is  reflected  In  an  equivalent  relation. 

The  response  of  a  Rogowskl  coil  Is  independent  of  the  Rogowskl  coil 
length  (assuming  each  coll  turn  is  effectively  the  same).  The  Important 
term  is  n,  the  number  of  turns  on  the  Rogowskl  coll  (N)  divided  by  the 
length  (L).  The  greater  the  number  of  turns  per  unit  length  the  larger 
the  Induced  voltage  for  a  given  current. 

2.5. 1.2  Rogowskl  Coil  Construction.  The  AFWL  Rogowskl  colls  are 

constructed  of  50  ft  UT-47c  coaxial  cable.  The  nominal  cable  capacitance 
is  29.3  pF/foot  (96.1  pF/m).  UT-47c  cable  has  a  copper  inner  conductor 
of  11.3  mils  diameter  (2.87*10~4  m).  The  Inner  cable  conductor  Is 
surrounded  by  a  37  mil  (9.40*10~4  m)  outer  diameter  plastic  Insulator. 
The  outer  conductor  Is  copper.  The  outer  conductor  and  the  cable  have 

_3 

an  outer  diameter  of  47  mils  (1.19x10  m).  The  outer  conductor  is 

etched  to  form  a  helical  winding.  The  number  of  turns  per  unit  length 
etched  in  the  coil  depends  on  the  desired  sensitivity  of  the  Rogowskl 
coll.  Typiral  values  are  1  turn/inch  and  2  turns/inch  (39  and  79 
turns/meter).  The  lower  sensitivity  coils  are  used  on  higher  current 
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experiments  (such  as  the  larger  1313  pF  AFWL  SHIVA  Star  capacitor  bank). 
Etching  the  solid  outer  conductor  allows  magnetic  field  to  diffuse  Into 
the  Rogowskl  coll.  The  Inner  electrode  Is  electrically  connected  to  the 
outer  electrode  at  one  end  of  the  coll.  A  Microdot  coaxial  connector 
(AMP  Inc.  catalog  number  2-329037-2)  Is  soldered  at  the  other  end. 

After  the  cable  connections  are  made,  the  whole  coll  (from  the  soldered 
Inner/outer  conductor  connection  to  the  Microdot  connector)  Is  sealed  In 
heat  shrink  Insulation  material.  Since  the  Rogowskl  colls  are 
constructed  within  AFWL,  they  are  made  to  any  length. 

2. 5. 1.3  Rogowskl  Coll  Calibration.  Although  the  Rogowskl  coll 
calibrations  can  be  calculated  from  the  theory  from  Section  2.5. 1.1, 
reliance  upon  the  theory  Is  not  recommended  for  experimental  analysis. 
The  Rogowskl  colls  are  calibrated  under  experimental  conditions. 

The  calibration  method  uses  an  RLC  circuit  to  produce  a  current.  The 
current  produces  a  voltage  In  the  Rogowskl  coll.  A  schematic  of  the  RLC 
circuit  used  Is  shown  In  Figure  11.  A  typical  result  of  a  calibration 
shot  Is  shown  In  Figure  12. 

In  the  circuit  of  Figure  11,  we  can  use  Klrchhoff's  two  circuit  laws  to 
calculate  the  circuit  response.  Klrchhoff's  first  law  states  that,  at  a 

node,  the  sum  of  the  currents  In  equals  the  sum  of  the  currents  out. 

Since  the  circuit  being  examined  Is  a  closed  loop,  the  same  current  I 

will  pass  through  all  the  circuit  elements.  Klrchhoff's  second  law 
states,  In  a  circuit  loop,  the  sum  of  the  voltages  is  0.  Using  these 
relations,  we  can  now  proceed  to  examine  the  calibration  circuit. 


The  voltages  are  summed  to  equal 


v0  -  Vc  +  VR  +  VL  (2. 5. 1.3.1) 

where  Is  Initial  charge  voltage,  Is  capacitor  voltage,  Is 
resistor  voltage  and  Is  Inductor  voltage.  Relating  the  voltages  to 
the  current  in  each  of  the  circuit  elements,  we  have 

V  =  1  f  I  dt  +  IR  +  L  5,  (2.5. 1.3.2) 

0  C  J  dt 

Using  Laplace  transforms,  we  have 

V  T 

JL  -  _  +  IR  +  Lsl  (2.5. 1.3.3) 

s  Cs 

where  s  Is  the  transform  variable  corresponding  to  frequency  (inverse 
time).  In  the  transform  equation,  the  same  variable  names  are  used  for 
ease  In  Identification,  but  they  have  been  transformed  from  the  time 
domain  to  the  frequency  domain. 


For  the  transform  equation  (2. 5. 1.3. 3),  the  transformed  current  is 
solved  for  in  terms  of  the  circuit  elements 


1 


($2  +  Rs  +  1^ 
L  LC 
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(2.5. 1.3.4) 
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Completing  the  squares  and  casting  equation  (2.5. 1.3.4)  In  standardized 
Laplace  form,  we  have 


L  (s  +  a)2  +  to2 


(2. 5. 1.3. 5) 


where  a  =  and  to  *  [i_  -  (?_)2]1/2. 
2L  LC  2L 


Using  the  Inverse  Laplace  transform,  we  then  have  the  solution  of  the 
circuit  In  the  time  domain 


I  =  _1  e  sin  cot 
Leo 


(2.5. 1.3.6) 


Were  the  Rogowskl  colls  Integrated,  this  relation  would  suffice  for 
calibration.  Since  the  calibrations  were  done  without  Integration,  we 
need  a  relation  for  the  time  differential  of  the  calibration  current. 
Differentiating  equation  (2. 5. 1.3. 6)  and  performing  the  appropriate 
algebraic  and  trigonometric  manipulations,  we  have 


HT  V  ,  2  A  2x1/2  . 

dl  o  (o  +  to  )  -at  ,  .  , 

_  =  _  e  cos  (cot  +  e) 

dt  L  <o 


(2. 5. 1.3. 7) 


where  a  and  to  have  been  defined  previously  and  0  Is  the  arctangent  of 
(ot/w) . 


If  a  «  to,  we  can  then  approximate  equation  (2. 5. 1.3. 7)  to 


V.V.V.V.V.V.V.V'x'.V 


I 


This  approximation  Is  valid  for  these  calibrations  (seen  In  Figure  12). 

Having  derived  the  relation  describing  the  behavior  of  the  calibration 
circuit.  It  Is  easy  to  relate  the  experimental  data  to  a  calibration 
constant  KR.  The  discharge  voltage  Is  known  from  the  charging 
circuit.  The  circuit  parameters  a  and  u  can  be  calculated  from  the 
oscilloscope  record  of  the  voltage  trace.  Knowing  the  time  base  speed 
and  the  oscilloscope  voltage  setting,  the  voltages  and  the  corresponding 
times  are  known.  Once  the  oscilloscope  data  Is  known,  several  basic 
algebraic  and  trigonometric  properties  are  Invoked  to  solve  for  the 
calibration  constant  K: 

1)  The  difference  between  two  adjacent  extrema  (positive/negative 
peaks)  Is  given  by  t  *  (x/w). 

2)  The  difference  between  two  adjacent  zeroes  Is  t  *  (x/u>). 

3)  The  absolute  values  of  the  extrema  (where  (u>t+e)=±nx,  n  an 

t 

Integer,  so  cos(wt+e)=±l)  will  obey  the  relation  V  =  ve  ,  v 
Is  a  constant. 


4 


1 


9 


f 

» 


By  using  the  time  differences  relations  of  1)  and  2),  an  average 
frequency  w  Is  calculated.  The  circuit  damping  constant  o  can  be 
calculated  from  the  extrema  as  specified  In  3).  Knowing  the  circuit 
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parameters  a  and  u»,  the  circuit  values  for  the  Inductance  L  and  the 


resistance  R  can  be  calculated.  Because  the  frequency  u  Is  generally 
taken  to  be  (1/LC)*^  (with  the  effect  of  the  resistance  R  Ignored),  the 
values  of  L  and  R  may  need  to  be  Iterated  to  be  consistent  with  the 
calculated  values  of  a  and  u>.  (The  system  capacitance  C  Is  known.)  The 
voltage  on  the  Rogowskl  coll  Vp  at  time  t  =  0  can  be  derived  by  using 
the  Information  In  3)  and  extrapolating  the  Initial  voltage  from  the 
absolute  value  of  the  extrema  voltage  beginning  with  the  second  peak. 
Using  the  first  peak  would  be  easy,  but  yields  erroneous  results,  since 
the  plasma  arc  needs  a  finite  (though  small)  time  to  Ignite. 

From  equation  (2.5.1.3.7a),  we  know  the  value  for 

dt 

Urn  dl  .  ^  e-ot  cos  (tot)  -  (2.5.1.3.7b) 

t^O  dt  L  L 

We  know  the  relation  for  the  Rogowskl  coll  Is 


V 


r 


yielding  the  calibration  constant  to  be 

V 

1/  0 


(2.5. 1.3.8) 


where  V  Is  charge  voltage,  L  Is  circuit  Inductance  and  V  Is 

0  i 

extrapolated  Initial  Rogowskl  voltage. 
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The  effective  Rogowskl  coll  outer  radius  Is  a  function  of  both  the  Inner 
radius  of  the  outer  conductor  and  the  skin  (penetration)  depth  6  where  6 

*  (2/cy  <ii)  .  Here,  a  Is  electrical  conductivity,  y  Is  permeability 

0  0 

of  free  space  and  u>  is  frequency  of  the  electromagnetic  radiation 
penetrating  the  conductor.  For  our  case,  5  ■  9.6*10-5  m  with  a  * 
5.8*107/flm  (the  conductivity  of  copper)  and  u>  =  3.0*106/s  (the 
characteristic  frequency  of  the  1.922  yF  capacitor  calibration  circuit). 

2.5.2  6  Probes 

Just  as  Rogowskl  colls  are  the  diagnostic  devices  used  In  analyzing  the 
total  current  delivery  to  the  coaxial  plasma  gun,  §  probes  are 
diagnostic  devices  for  analyzing  the  Internal  coaxial  plasma  gun 
current.  A  series  of  16  §  probes  Is  Inserted  through  the  Inner  anode 
surface  to  observe  the  plasma  In  the  plasma  gun  annulus.  This  mounting 
from  the  Internal  electrode  Is  similar  to  that  of  Len  [158],  The  16  § 
probes  are  mounted  at  four  different  axial  positions  and  four  different 
azimuthal  positions. 

2. 5.2.1  §  Probe  Theory.  The  theory  for  the  §  probes  Is  similar  to 

that  of  the  Rogowskl  colls.  Instead  of  repeating  the  derivations  from 
Section  2.5. 1.1,  portions  of  that  presentation  will  be  recalled  only  as 
they  apply. 

A  distinction  needs  to  be  drawn  In  comparing  the  Rogowskl  coll  and  the  £ 
probes.  The  Rogowskl  coll  measures  the  total  current  (or  the  time  rate 
of  change  of  current)  passing  through  Its  Interior.  The  Rogowskl  coll 


does  not  reflect  the  local  variation  of  the  current  It  measures.  As 
long  as  the  current  geometric  effects  are  minimized,  the  Rogowskl  coil 
measures  all  the  current  passing  through  It.  However,  the  §  probe 
measures  the  magnetic  field  due  to  a  current  at  a  point  and  can  reflect 
some  local  variation  of  the  current.  If  the  current  does  not  exhibit 
large  azimuthal  variations,  the  distinction  Is  minor. 

From  equation  (2. 5. 1.1. 5),  we  have  the  relation  between  the  current  and 
the  Induced  magnetic  field  (In  non-magnetic  materials).  This  Is 

f  B  •  dl  «  p  I  (2.5. 1.1.5) 

J  0 

If  we  assume  cylindrical  geometry  where  a  current  I  Is  axial  and 
exhibits  no  radial  or  azimuthal  variation,  a  closed  curve  can  be  used  to 
describe  the  line  Integral.  Realizing  a  circle  of  radius  r  Is  the 
simplest  closed  curve  about  a  point,  we  then  have 

Bfl  (2xr)  =  u  I  (2.5.2. 1.1) 

y  o 

For  this  coaxial  geometry,  the  azimuthal  magnetic  field  will  be 

u  I 

B.  =  JL  (2.5.2. 1.2) 

9  2*r 

This  relation  differs  from  that  of  the  Rogowskl  coil  (2. 5. 1.1. 7)  in  the 
Inverse  variation  of  current  with  radial  distance  from  the  source. 


Using  lenz's  rule, 

V-  -  f  (2.5.1.1.12a) 

dt 

The  magnetic  flux  *  measured  by  the  §  probe  coll  Is  given  by 

4  -  NAB 

where  N  Is  number  of  turns  and  A  is  effective  cross-sectional  area.  The 
Induced  voltage  Vg  In  the  §  probe  Is 

y  na  dI 

Vn  *  -  _L_  _  (2. 5. 2. 1.3) 

B  2*r  dt 

(The  effective  area  Is  used  In  the  derivation  since  the  magnetic  flux  4 
uses  the  vector  dot  product. 

4  =  J  B  •  dS 

This  can  vary  from  the  actual  cross-sectional  area  of  the  §  probe.)  The 
§  probes  used  In  this  series  of  experiments  were  not  self-integrating. 
They  were  passively  Integrated  with  RC  Integrators  (mentioned  previously 
In  Section  2. 5. 1.1).  The  actual  response  for  the  §  probes  becomes 


where  RC  Is  the  Integrator  time  constant.  This  derivation  assumes  the 
number  of  turns  N,  the  effective  area  A  and  the  radius  of  the  §  probe 
are  fixed  In  time.  This  Is  true  In  both  the  calibration  and 
experimental  series. 

2. 5. 2. 2  6  Probe  Construction.  The  author  constructed  and  calibrated 

the  $  probes  used  In  this  experiment.  The  §  probe  base  and  mounts  were 
designed  within  AFWL.  A  sketch  of  a  §  probe  base  and  mount  Is  shown  In 
Figure  13. 

The  §  probe  mount  and  base  are  made  from  an  Insulating  phenolic  plastic 
material.  The  phenolic  plastic,  chosen  because  It  Is  easily  machined, 
has  relatively  strong  physical  strength  and  exhibits  a  high  dielectric 
breakdown  strength.  The  mount  has  a  1.5"  (3.81><10"2  m)  long  arm.  At 
the  arm  end  Is  a  50  mil  (1. 27*10"^  m)  cylinder.  The  §  probe  Is  formed 
on  this  cylinder.  Four  or  five  turns  of  Insulated  32  gauge  magnet  wire 
are  wound  around  the  cylinder.  This  yields  a  typical  turns-area  product 
(NA)  of  10  turns -m.  The  wire  Is  sealed  Into  place  on  the  phenolic 

cylinder  with  Vacseal  high  vacuum  leak  sealant.  The  leads  from  the 
colls  are  twisted  and  brought  out  along  the  length  of  the  support  arm. 
(The  twisted  leads  reduces  unwanted  voltage  pickup.)  These  leads  were 
then  connected  to  a  coaxial  cable. 

T(-«  support  arm  Is  wedged  Into  the  alignment  fin  slot  so  the  support  arm 

_2 

extends  some  0.5"  (1.27x10  m)  from  the  surface  of  the  alignment  fin. 
(The  curved  surface  of  the  alignment  fins  fixes  the  §  probe  In  a 


preferred  orientation.)  This  §  probe  mount  cylinder  is  oriented  up  (0° 
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with  respect  to  the  system  axis  of  symmetry),  down  (180e),  right  (90“) 
and  left  (270* ).  The  §  probe  Is  operates  when  oriented  right  or  left. 
With  the  alignment  fin,  the  8  probe  has  orientation  errors  no  larger 
than  ±5",  leading  to  a  maximum  error  of  [cos(0°)  -  cos(5°))  or  ±0.4%. 
After  the  support  arm  Is  mounted  on  the  alignment  fin  and  the  electrical 
leads  are  taken  through  the  alignment  fin  slot,  the  §  probe  and  the 
support  arm  are  sealed  with  Torr  Seal  low  vapor  pressure  resin  epoxy. 

A  ceramic  sheath  Is  placed  over  the  §  probe  after  sealing  with  Torr  Seal 
(and  before  the  Torr  Seal  dries).  The  material  for  the  sheath  Is  molded 
or  extruded  a^mlna  rod.  It  Is  about  0.25"  (6.4*10~3  m)  In  outer 
diameter  and  about  30  mils  (7.6*10”^  m)  thick.  The  end  of  the  probe 
sheath  is  closed  with  a  hemisphere  of  the  same  ceramic. 

After  the  epoxy  on  the  5  probe  (rod,  alignment  fin  and  the  ceramic 
sheath)  has  dried,  the  §  probe  leads  are  mated  to  a  coaxial  connector 
and  a  R6-58/U  coaxial  cable.  The  connections  are  then  tested  for 
continuity.  Once  continuity  Is  verified,  the  8  probes  are  tested  for  an 
appropriate  resistance.  After  the  complete  construction  of  the  8 
probes,  the  probes  are  mounted  inside  the  anode.  The  8  probes  extend 
through  the  anode  some  0.25"  (6.4*10  m)  Into  the  plasma  gun  annular 
gap.  The  8  probe  electrical  leads  are  connected  to  oscilloscopes  for 
data  recording. 

2. 5. 2. 3  8  Probe  Calibration.  The  same  calibration  system  is  used  for 

both  8  probes  and  Rogowskl  coll  calibration.  The  same  system  of 
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calibration  derivations  can  be  used.  Using  equation  (2.5.1.3.7b)  and 
the  relation 


vb-kb 


we  derive  the  §  probe  calibration  response  constant  KR  such  that 


V 

Kr  *  (2. 5. 2. 3.1) 

lvb 

where  Kg  Is  §  probe  calibration  constant,  Is  capacitor  charging 
voltage  and  L  Is  calibration  circuit  Inductance. 

The  calibration  system  fixes  the  §  probe  radius  at  6.5"  (0.165  m).  The 
S  probe  alignment  errors  In  the  calibration  system  are  no  worse  than 
±10".  This  leads  to  an  error  no  worse  than  [cos(0°)  -  cos(10°)]  or 
±1.5%. 


-5  2  x 

For  a  typical  turns-area  product  (NA)  of  10  turns-m  and  8  probe 
radius  (r)  of  7.1*10~ ^  m,  a  calibration  constant  for  the  §  probe  Is 

L.  =  =  3.55*1010  ^ 

KD  p  NA  A 

D  o 

This  compares  well  to  the  $  probe  calibrations  In  Table  1. 


,  •r*<,  +  .*•  cr-ir. 


ism 


Table  1  calibrations  are  made  from  physical  measurements  and  actual 
calibrations  prior  to  §  probe  Insertion  In  the  plasma  gun.  Three  § 
probes  (E,  H'  and  Q)  were  apparently  damaged  In  Insertion.  Comparison 
with  other  probes  at  the  same  level  yield  the  revised  calibrations 
reported  In  Table  la. 

Attempts  were  made  to  calibrate  the  §  probes  In  the  plasma  gun  in  situ. 
This  Involved  shorting  the  anode  and  the  cathode  rods  at  the  gun  muzzle. 
These  attempts  did  not  produce  reliable  results.  Arcing  occurred 
because  of  poor  electrical  contact  of  the  current  shunt.  The  gun 
current  In  the  In  situ  calibrations  was  asymmetric.  After  four  or  five 
unsuccessful  attempts  to  calibrate  the  $  probes  In  situ,  the  efforts 
were  abandoned  and  the  earlier  calibrations  were  used. 

When  a  §  probe  Is  used,  there  Is  a  frequency  effect  that  limits  the 
probe  response.  This  frequency  limitation  Is  a  result  of  the  probe 
Inductance  and  the  effective  system  resistance.  The  effective  system 
resistance  R  Is  the  50  n  termination  resistance.  The  probe  Inductance  L 
Is  given  by  Grover  [159] 


L  =  10"3  F  d  N2 

whe^e  L  Is  probe  Inductance  In  pH,  F  Is  a  form  factor  (a  function  of  the 
coll  length/diameter  ratio),  d  Is  coll  diameter  In  cm  and  N  Is  number  of 


turns. 


Table  1.  Calibrated  Characteristics  of  the  AFWL  §  Drobes 


Probe  Name 


Probe  Radius 


Turns-Area 


(10"2  m) 


(10"6  m2) 


Calculated 

Response 


(1010  A/Vs) 


E 

7.084  ±  0.038 

8.4 

±  2.4 

4.2 

±  1.2 

H' 

7.099  ±  0.043 

3.9 

±  0.6 

9.1 

±  1.4 

« 

t 

Q 

7.130  ±  0.041 

11.8 

±  1.4 

3.02 

±  0.3 

E?l 


Vvv, 


With  a  turns-area  product  of  10”^  turns-m^  and  4  to  5  turns,  the  coil 

-3  -3 

diameter  ranges  from  1.6x10  J  to  1.8x10  m.  The  coil  length  is  about 
-4 

2.5x10  m.  The  form  factor  F  ranges  from  17.2  to  18.0.  The  coil 
Inductance  ranges  from  52  nH  to  69  nH.  The  calculated  L/R  quotient  Is 
about  1  to  1.4  ns.  Any  phenomena  occurring  on  a  time  scale  shorter  than 
the  time  constants  Is  severely  attenuated  and  is  not  observed  by  the  § 
probes. 

2.5.3  Capacitive  Voltage  Probes 

Voltage  diagnostics  are  used  to  analyze  the  gun  voltage.  The  voltage 
diagnostics  used  are  capacitive  voltage  probes.  These  voltage  probes 
consist  of  two  capacitors  in  series.  The  input  voltage  is  seen  by  the 
capacitor  stack  (consisting  of  the  two  capacitors).  The  resultant 
output  voltage  (presented  by  only  one  of  the  capacitors)  Is  recorded. 

The  capacitive  voltage  divider  is  used  because  the  voltages  are  on  the 
order  of  tens  of  kilovolts.  Directly  applied,  these  voltages  can  Induce 
electrical  breakdown  In  electrical  components,  even  in  such 
comparatively  simple  ones  as  coaxial  cables.  In  more  extensive  and 
complex  systems  (such  as  oscilloscopes),  the  damage  from  overvoltages  is 
more  consequential.  To  reduce  the  deleterious  effects  of  measuring  high 
voltages,  series  of  circuit  elements  (resistors.  Inductors  or 
capacitors)  are  used. 

The  voltage  probes  are  mounted  on  the  underside  of  the  transmission  line 
outside  the  coaxial  plasma  :.;n  electrodes  and  the  vacuum/insulator 
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Interface.  Two  voltage  probes  are  used,  one  mounted  to  the  north  and 
one  mounted  to  the  south  of  the  coaxial  plasma  gun. 


SI 


I 
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Capacitive  voltage  probes  have  several  advantages  not  exhibited  by 


resistive  probes: 


1)  Resistive  probes  drain  current  from  the  voltage  source.  The 


current  drain  distorts  the  measured  voltage.  Capacitive 


voltage  probes  do  not  drain  current.  Rather,  capacitive 
voltage  probes  measure  the  polarization  charge  Induced  by  the 


dielectric  stress  on  the  Insulator. 


2)  Resistive  voltage  probes  may  explosively  fragment  with  the 


application  of  high  voltages  (unless  specifically  designed  to 


dissipate  high  power  levels).  Capacitive  voltage  probes  drain 


no  power  from  the  voltage  source  and  do  not  exhibit  this 


behavior. 


3)  Resistive  voltage  probes.  If  designed  for  large  power 


dissipation,  can  have  time  varying  resistances  (as  In  aqueous 


metallic  salt  solution  resistors)  complicating  the  voltage 


analysis.  If  the  voltage  probes  are  time  invariant,  they  tend 


to  be  expensive  and  susceptible  to  mechanical  shock.  Our 


capacitive  voltage  probes  maintain  the  same  response  for  the 


same  probe  geometry.  Our  capacitive  voltage  probes  are 


robust. 
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2. 5. 3.1  Capacitive  Voltage  Probe  Theory.  The  simplified  circuit  model 
for  the  capacitive  voltage  Is  shown  In  Figure  14.  There  are  two 
capacitors  In  series:  Cj  which  taps  the  source  voltage  and  C2  which 
goes  from  the  Cj  point  voltage  to  ground.  The  capacitor  stack  measures 
the  voltage  from  to  ground.  A  current  I  flows  through  both 
capacitors  and  C2. 

Applying  Kirchhoff 's  second  law  to  the  circuit,  we  have 


Vo  =  Vc  +  Vc  (2.5.3. 1.1) 

where  Vr  Is  voltage  on  the  first  capacitor  and  Vr  Is  voltage  on  the 
L1  u2 

second  capacitor. 

The  voltage  seen  by  the  recording  device  Vm  becomes 

Vjn  "  VC2  (2.5.3. 1.2) 


Using  the  relationship  for  the  capacitor  voltage  and  current,  we  have 


(2.5.3. 1.3) 


where  Is  capacitor  voltage  and  1^  Is  capacitor  current.  Substituting 
equation  (2.5.3. 1.3)  In  equations  (2. 5. 3. 1.1)  and  (2. 5. 3. 1.2),  we  have 
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Figure  14.  Capacitive  voltage  monitor  circuit. 


V  *  _  f  I  dt  +  1  f  I  dt  (2.5.3.1.1a) 

0  J  J 


\  ■  l! 1 


(2.5.3.1.2a) 


Now,  If  rather  than  solving  for  the  ratio  of  Vm/VQ ,  we  take  the  time 
differentials  of  equations  (2.5.3.1.1a)  and  (2.5.3. 1.1. b)  and  have 


□v  ,  . 

_L  -  I  (L  +  L) 

dt  Cj  C2 


(2.5.3.1.1b) 


dV  . 

- 1  (L) 

dt  C2 


(2.5.3.1.2b) 


Solving  for  the  current  I  In  both  equations  (2.5.3.1.1b)  and 
(2.5.3.1.2b),  we  arrive  at  the  relationship 


dV_  C.  dV 

m  1  o 

dt-  C1  +  C2  dF 


(2. 5. 3. 1.4) 


If  we  Integrate  equation  (2. 5. 3. 1.4),  we  arrive  at  the  relation  between 
the  voltages 


(2.5.3. 1.5) 


Equation  (2.5.3. 1.5)  Is  the  basis  for  our  capacitive  voltage  probes. 

Unless  the  capacitance  Cj  Is  much  less  than  C2,  Vm  can  be  very  large. 

To  reduce  the  probe  voltage,  the  output  capacitor  voltage  Is  passively 
Integrated  with  an  RC  Integration  circuit. 

This  analysis  does  not  address  stray  capacitance  from  the  probe  to 
ground  potential.  It  Is  presumed  negligible.  The  analysis  also  does 
not  fully  address  the  time  dependence  of  the  voltage  probe.  If  we 
Include  these  frequency  effects,  the  probe  response  will  produce  the 
voltage  response  V  [160], 

V  ^  -t/T 

V  =  0  (cos  tot  cot  sin  tot  -  e  /T) 

i  +  A2 

where  V  Is  Input  voltage,  w  Is  frequency  variation  of  the  voltage 

o 

(exhibiting  the  behavior  V  sin  cot),  t  Is  capacitive  voltage  probe  time 

0 

constant  *  R^cp*  Rt  "*s  termination  resistance  and  Cp  Is  the  probe 
capacitance. 

Using  the  effect  of  the  voltage  frequency  yields  a  voltage  V  of 

V(t)  =  a  cos  cot  +  8  sin  tot  -  a  e~t,/T 

where  a  and  8  are  values  determined  by  the  frequency  to  and  the  time 
constant  t.  The  value  for  o  Is 
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a  =  V 


ix22 

1  +  0)  T 


The  value  for  3  is 


3  =  V 


ix22 

1  +  U)  X 


If,  for  all  times  of  interest  t,  wx  «  1  and  t  »  x,  then  the  recorded 
voltage  Vp  is  [161] 


Vp  -  t  V 


where  V  is  the  time  differential  of  the  voltage  probe  and  is 


V  =  V  u)  cos  u>t. 


The  voltage  seen  by  the  probe  Is  then  the  time  rate  of  change  of  the 

mear  ired  voltage  V  .  In  the  limit  where  wx  «  1  and  t  »  x,  the 

0 

prf  /ious  analysis  should  be  valid. 


With  the  termination  resistance  =  50  n  and  the  probe  capacitance 

Cp  =  l  pF,  the  characteristic  time  x  =  50  ps  and  the  time  t  »  x.  If  we 

note  the  system  quarter-cycle  rise  time  T^4  s  2.0  ps,  tnen  the 

5  -1  -5 

characteristic  frequency  w  s  8*10  s  and  u>x  =  4*10  1  satisfying 


the  constraining  inequalities. 


2. 5. 3. 2  Capacitive  Voltage  Probe  Construction.  The  capacitive  voltage 
probes  used  on  the  AFWL  PUFF  bank  are  made  In-house.  The  capacitive 
voltage  probes  have  brass  and  aluminum  housings  and  use  polyethylene  as 
a  dielectric  material.  These  probes  consist  of  two  concentric  cylinders 
separated  by  the  polyethylene  dielectric. 

The  outer  probe  housing  Is  a  hollow  aluminum  cylinder  of  1.75” 

(4.45x10"^  m)  outer  diameter  and  1.25"  (3. 18*10"^  m)  Inner  diameter.  A 
shaped  polyethylene  dielectric  Insulator  Is  fitted  Inside  the  hollow 
cylinder.  The  second  electrode  fits  Inside  the  polyethylene  cylinder. 

A  brass  end  cap  covers  the  hollow  aluminum  cylinder  and  brings  out  the 
electrical  connections  from  the  Inner  probe  electrode. 

The  outer  probe  housing  Is  In  electrical  contact  with  the  lower 
transmission  line.  The  outer  electrode  is  at  the  bias  of  the  lower 
transmission  line. 

The  Inner  probe  electrode  Is  capacltively  coupled  to  the  upper 
transmission  line  biasing  the  Inner  electrode  to  its  potential.  The 
capacitive  coupling  between  the  Inner  electrode  and  the  upper 
transmission  line  Is  the  C1  capacitance.  The  Inner  and  the  outer  probe 
electrodes  are  capacltively  coupled  with  the  C2  capacitance. 

2. 5. 3. 3  Cccccltlve  Voltage  Probe  Calibration.  No  direct  calibrations 
were  performed  on  the  capacitive  voltage  probes.  The  voltage  probes 
measured  the  voltage  difference  between  the  upper  and  the  lower 
transmission  plates.  Weights  placed  on  the  transmission  line  altered 
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i 

ft 
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the  transmission  line  dielectric  spacing  and,  consequently,  the  C1 
coupling  between  the  probe  and  the  upper  transmission  line.  Altering 
the  coupling  changes  the  voltage  division  of  the  probe.  The  coupling 
voltage  division  was  sensitive  to  weight  as  light  as  a  person  on  the 
upper  transmission  plate.  Since  some  personnel  went  on  top  of  the 
transmission  line  for  every  shot,  direct  voltage  calibrations  were  not 
made.  It  was  decided  to  rely  on  the  relative  amplitude  and  shape  of  the 
voltage  trace  for  each  shot.  The  time  average  amplitude  In  the  early 
portion  of  the  voltage  trace  can  be  related  to  the  voltage  on  the 

capacitor  bank  V  times  an  Inductive  ratio  v.  This  Inductive  ratio  v  is 

0 

defined  to  be 


L01  +  L02 


where  Lq2  Is  Inductance  from  the  probe  to  the  load,  LQ1  Is  Inductance 
from  the  capacitor  bank  to  the  probe.  LQ1  +  Lq2  Is  the  system 
Inductance  from  the  capacitor  bank  to  the  load. 


2.5.4  Passive  RC  Integrators 

RC  Integrators  Integrate  the  output  voltage  from  the  diagnostic  devices 
(Rogowski  coils,  8  probes  and  voltage  probes).  The  RC  terminology 
refers  to  the  resistor  R  and  the  capacitor  C  forming  the  Integration 
circuit.  Passive  Integrators  do  not  use  any  circuit  elements  that  use 
current  gain  or  positive  feedback  mechanisms. 


ww 


2.5.4. 1  Passive  RC  Integrator  Theory.  The  simplified  circuit  for  the 
passive  RC  Integrator  used  In  Integrating  voltage  sources  (Rogowskl 
colls,  §  probes  and  capacitive  voltage  probes)  Is  shown  In  Figure  15. 


s 


Using  Klrchhoff's  first  and  second  laws,  we  have 


V  *  IR  +  1  f  I  dt 

0  c  J 


(2. 5. 4.1.1) 


V  =  1  [  I  dt 
m  j 


(2. 5. 4.1. 2) 


Using  Laplace  transforms,  equations  (2.5.4. 1.1)  and  (2. 5. 4. 1.2)  are 
transformed  to 


V  =  IR  + 


(2.5.4.1.1a) 


V  =  _ 
m  Cs 


(2.5.4.1.2a) 


Performing  the  algebraic  manipulations,  the  transfer  relation  becomes 


V  «  V  _ ?_ 

m  0  RC  $  +  1 


(2. 5. 4. 1.3) 


mm 


where  r  Indicates  the  Inverse  Laplace  transform. 


If  we  note  the  Laplace  transform  variable  s  corresponds  to  frequency  or 
Inverse  time,  l.e.. 


s  «  w  and  s  « 


where  u  Is  a  characteristic  system  response  frequency  and  t  Is  a 
characteristic  time  of  the  system,  we  can  perform  some  asymptotic 
analysis  of  the  transfer  relation  In  equation  (2. 5. 4. 1.4) 


V  =  V 
m  o 


for  s  «  _  (t  »  RC) 
RC 


(2.5.4.1.4a) 


V  =  1  f  V  dt  for  s  »  1  (x  «  RC) 
m  RC  J  0  RC 


(2.5.4.1.4b) 


With  these  two  asymptotic  relations,  we  predict  the  Integrator  response. 
If  the  characteristic  system  time  Is  much  greater  than  the  RC  time 
constant,  the  Input  voltage  equals  the  output  voltage.  If  the 
characteristic  system  time  Is  much  less  than  the  RC  time  constant,  the 
output  voltage  is  the  time  integral  of  the  Input  voltage  divided  by  RC. 


1*. 
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The  requirement  that  the  characteristic  time  x  be  much  less  than  the 
time  constant  RC  Implies 


x  <  6RC 

to  have  valid  Integration  of  the  voltage  to  the  Integrator. 

To  observe  the  effect  of  the  RC  Integrator,  assume  a  unit  step  function 
Input,  u(t)  (where  u(t)  *  0  If  t  <  0  and  u(t)  =  1.0  If  t  >  0) 

Vo  =  VQ  u(t) 

the  recorded  voltage  Vm  becomes 

V_(t)  =  ^  e't/RC  (2. 5. 4.1. 5) 

m  RC 

This  Implies  the  Integrator  voltage  is  bled  off  by  the  resistor  R  in  the 
Integrator  circuit.  If  the  characteristic  time  Is  small  compared  to  RC, 
the  resultant  error  is  small. 

Having  Introduced  an  error  with  the  RC  Integrator,  It  would  be  desirable 
If  a  correction  could  be  made.  This  can  be  done  by  using  the  transfer 
function,  equation  (2. 5. 4. 1.3).  If  we  multiply  the  voltage  Vm  by 
(RCs  +  1)  which  Is  the  multiplicative  Inverse  of  the  transfer  function, 
we  have 
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Vrn„  =  Vm  (RCs  +  1) 
cor  m  '  ' 


(2.5.4. 1.6) 


where  VCQr  is  the  corrected  voltage  and  Vm  is  the  measured  voltage. 
Performing  the  Laplace  inverse,  we  have 


Vrnr  =  RC  _  +  Vm 
cor  dt  m 


(2. 5.4.1. 7) 


This  corrects  the  integrated  measured  voltage  traces.  Except  for 
possible  numerical  errors,  this  correction  is  exact. 


2. 5. 4. 2  Passive  RC  Integrator  Construction.  The  passive  Integrators 
are  constructed  with  coaxial  connections;  one  end  has  a  male  connection 
and  the  other  has  a  female  connection.  They  measure  about  2"  (5*10  m) 
long.  The  capacitors  used  In  the  Integrators  are  nominally  0.5  pF.  The 
RC  time  constants  vary  from  10  ps  to  50  ps. 


2. 5. 4. 3  Passive  RC  Integrator  Calibration.  RC  Integrators  can  be 
calibrated  In  several  ways.  Two  methods  are  discussed  here.  The  first 
method  compares  the  Input  and  output  signals  when  a  step  or  square  wave 
function  is  the  Input  signal.  The  second  method  compares  the  Input  and 
output  signals  when  driven  by  an  adjustable  sinusoidal  wave  generator  of 
adjustable  frequency. 


In  the  first  method,  a  known  voltage  is  applied  to  the  RC  integrator. 
This  voltage  Is  measured  with  an  oscilloscope  picture.  The  output  of 
the  RC  integrator  is  recorded  on  another  oscilloscope  picture.  Using 


v.v.v.v.'aV.v.v.v.v.v: 


equation  (2. 5. 4. 1.5),  a  comparison  of  the  Input  and  output  signals  can 
be  made  and  the  RC  time  constant  derived. 


In  the  second  method,  we  use  the  transfer  function  from  equation 
(2. 5. 4. 1.3).  In  a  more  appropriate  form,  this  Is 

V 

=  1  (2.5.4.1.3a) 

V  RCs  +  1 


Realizing  s  corresponds  to  the  frequency  w  of  the  driving  oscillator,  we 
can  compare  the  Input/output  ratio  as  a  function  of  frequency.  If  the 
product  RCw  is  sufficiently  large  (i.e.,  RCw  »  1),  the  ratio  is 
inversely  proportional  to  frequency  so  that 


1 

RCi 


By  measuring  the  slope  (^_),  the  RC  time  constant  can  be  calculated. 

RC 

Even  should  the  product  RCtj  not  be  sufficiently  large,  a  curve  fit  can 
be  used  to  derive  the  RC  time  constant.  The  results  for  the  RC 
calibration  series  are  displayed  in  Table  2.  A  single  standard 
deviation  is  reported  as  the  error. 

Not  all  the  RC  Integrators  could  be  calibrated.  When  the:  were  being 
used,  the  integrators  could  not  be  removed  for  calibration.  After  the 
experimental  series  was  completed,  these  integrators  were  borrowed  by 
Los  Alamos  National  Laboratory  personnel.  Unfortunately,  nov  all  of  t^e 


Integrators  were  returned  to  AFWL.  For  these  Integrators,  the  nominal 


RC  time  constant  Is  assumed.  The  error  Is  assumed  to  be  ±10%. 


Table  2.  RC  Integrator  Time  Constants 


i 


Probe  Name  Time  Constant  (us) 


B 

10 

± 

1 

C 

10.27 

± 

1.13 

D 

10 

± 

1 

E 

9.93 

± 

0.32 

F 

9.45 

± 

0.26 

G' 

9.32 

± 

0.34 

H' 

10 

± 

1 

J1 

10 

± 

1 

L 

10 

+ 

1 

M 

10 

± 

1 

N 

25 

± 

3 

0 

22.91 

± 

1.83 

P 

26.18 

± 

1.32 

Q 

25 

± 

3 

R' 

25 

± 

3 

S 

25 

± 

3 

2.5.5  Time  of  Flight  Photon  and  Neutron  Detectors 


detectors  provide  a  voltage  response  proportional  to  rho  energy 
deposited  by  the  photons  or  neutrons. 

The  D-D  fusion  reaction  Is 

D  +  D  -»  He3  +  n  +  3.26  MeV 

O 

with  the  neutron  having  2.44  MeV  and  the  He  nucleus  having  0.82  MeV 
energy. 


The  time  of  flight  method  measures  the  time  difference  between  the 

photon  and  the  neutron,  hence  the  nomenclature.  For  a  given  distance  l 

from  the  source  to  the  detector,  the  time  delay  t0  for  the  photon  is 

*1 


1  c 


where  c  Is  the  speed  of  light  (2.998><10  m/s).  In  this  analysis,  the 
fusion  reaction  products  are  assumed  to  be  produced  In  a  time  scale  much 
less  than  the  characteristic  time  of  flight. 


For  the  same  distance  l,  the  time  delay  for  the  neutron  t.  is 

*2 


2  v 


V.  +  >  A 


,V 


where  v  Is  the  velocity  of  the  neutron.  Since  the  D-D  fusion  product 
neutrons  are  on  the  order  of  several  MeV,  they  are  non-relatlvlstlc  and 


the  energy  of  the  neutron  En  Is 


E  =  i  m  v2 
n  2  ^ 


where  mn  Is  mass  of  the  neutron  (1.675*10"*'  kg).  Knowing  the  velocity 
spectrum,  an  energy  spectrum  of  the  neutron  can  be  generated  to  diagnose 
the  D-D  neutron  Interaction  mechanisms. 


For  our  case,  the  distance  d  Is  on  the  order  of  several  meters.  The 
time  delay  t0  Is  on  the  order  of  tens  of  nanoseconds.  For  the 

microsecond  time  scales  of  the  experiment,  this  time  Is  practically 
Instantaneous.  As  such,  the  photons  measured  by  the  time  of  flight 
detectors  are  used  as  a  time  reference. 


The  detectors  used  are  E  G  &  G  model  number  NPM54X  detectors.  These 

_2 

sealed  Integral  units  are  based  on  a  2.25"  (5.72x10  m)  diameter  2.25" 
long  NE111  plastic  scintillator.  The  scintillator  Is  optically  coupled 
to  the  XP2020  photomultiplier.  The  detector  assembly  Is  surrounded  by  a 
0.1875"  (4.76x10  m)  aluminum  jacket  except  for  a  window  made  of  other 
materials.  The  detectors  are  wrapped  in  a  thickness  of  0.625" 

(1.59x10  m)  lead  to  reduce  sensitivity  to  photons  and  neutrons  not 
traveling  directly  (line  of  sight)  Into  the  detectors.  A  detector  is 
shown  In  Figure  16.  Knowing  the  different  detector  responses  and  the 
filter  material  attenuation,  the  photon  spectrum  can  be  determined  using 
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the  Degnan  deconvolution  technique  [162].  Particular  results  from  the 
AFWL  PUFF  coaxial  plasma  gun  are  dealt  with  In  greater  detail  by  Beason 
[103]  and  Warren  et  al.  [104]. 

2.5.6  Silver  Gelqer-MUIler  Counter  Neutron  Detectors 

The  D-D  nuclear  reaction  products  were  detected  using  Gelger-MUller 
tubes.  These  tubes  detect  nuclear  (n,y)  reactions  through  neutron 
activation  of  natural  silver  (Ag).  The  detection  method  follows  that  of 
Lanter  and  Bannerman  from  Los  Alamos  [163,  164]. 

Natural  silver  (Instead  of  Isotoplcally  pure  silver)  Is  used  for  the 
thermal Ized  neutron  detection.  The  characteristics  for  the  naturally 
occurring  silver  Isotopes  are  reported  In  Table  3. 

Table  3.  Characteristics  of  Natural  Silver  Isotopes 
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particle  (with  96%  occurrence),  1.02  MeV  8~  (with  1.7%  occurrence)  and 

0.88  MeV  0+  (with  0.3%  occurrence)  [166].  The  particulate  occurrence 

does  not  add  to  100%  because  the  Ag-108  Isotope  exhibits  a  2%  electron 

capture  [166].  Major  Ag-110  products  are  the  2.89  MeV  0~  (with  95% 

occurrence)  and  2.22  MeV  0“  (with  5%  occurrence)  [166].  Both  Isotopes 

exhibit  fractional  numbers  of  y-rays.  With  the  multiplicity  of  product 

particles,  each  with  an  Independent  Gelger-MUller  collection  efficiency, 

a  complete  physical  description  Is  complex.  Instead  of  attempting  a 

complex  description  (which  would  be  beyond  the  range  of  this 

dissertation),  the  presentation  of  Lanter  and  Bannerman  Is  followed. 

Their  empirical  relations  are  used  and  an  effective  decay  constant 

derived  (with  the  values  reported  In  Table  3).  This  approacn  can  be 

repeated  since  the  AFWL  system  Is  nearly  Identical  to  theirs.  The 

_2 

effective  decay  constant  Is  2.114x10  /s  In  good  agreement  with  the 
_2 

value  of  2.14x10  /s  of  Lanter  and  Bannerman. 

The  Gelger-MUller  tubes  are  Vlctoreen  type  1B85  detector  tubes.  They 
operate  at  a  bias  voltage  of  about  +900  V.  They  are  ensheathed  by  20 
mil  natural  silver.  A  methyl  methacrylate  plastic  tube,  3  1/8" 
(7.94x10"^  m)  long,  1  1/8"  (2.86x10"^  m)  outer  diameter  and  a  wall 

_3 

thickness  of  about  160  mils  (4.05x10  m)  surrounds  the  detector.  These 
tube  ensembles  are  mounted  In  a  12  *  12  x  6"  (0.3048  *  0.3048  x  0.1524 
m)  polyethylene  block.  The  polyethylene  thermal Izes  the  fusion  reaction 
neutrons  for  absorption  In  the  silver  sheet.  One  large  area  side 
(12x12")  of  the  polyethylene  block  faces  the  neutron  source.  On  the 
opposite  side  of  the  polyethylene  block,  the  tube  assemblies  are 
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Inserted  some  4  13/16"  (0.1222  m)  Into  the  block.  Four  tube  assemblies 
are  placed  In  the  block.  The  tube  assemblies  placement  is  shown  in 
Figure  17. 


The  major  difference  between  the  Los  Alamos  and  the  AFWL  detectors  Is 
the  silver  sheet  thickness  used  to  surround  the  Gelger-MUller  tubes. 
Lanter  and  Bannerman  used  10  mil  (2.54*10-4  m)  silver  sheet;  we  use  20 
mil  (5.08><10~4  m)  thickness  sheet.  With  Ag  density  of  10.5  g/cm3 
(1.05*104  kg/m3),  the  macroscopic  nuclear  cross-section  increases  from 
3.61  cm-1  to  7.22  cm-1.  Increasing  the  macroscopic  cross-section 
Increases  the  fractional  neutron  absorption  from  0.0876  to  0.1676.  This 
increases  the  neutron  absorption  by  1.912.  However,  the  Gelger-MUller 
tube  B  absorption  also  decreases  with  the  Increased  silver  sheet 
thickness. 


Using  the  relation  reported  by  Price  [167],  material  beta  absorption  is 
approximated  by 


fraction  of  B's  absorbed  =  1  -  e 


"Vx 


where  um  Is  averaged  mass  absorption  coefficient,  p  is  mass  density  and 
x  is  length  of  B  transport.  The  mass  absorption  coefficient  is  reported 
by  Price  [167]  to  be  approximately 


where  jjm  is  In  units  of  cm  /g  and  Em  Is  MeV.  With  the  natural  Isotopic 

silver  abundance  and  the  particulate  occurrence  as  weighting  factors, 

2 

the  mean  silver  mass  absorption  coefficient  is  7.44  cm'  /g.  -Doubling  the 
silver  sheet  thickness  causes  the  fractional  B  absorption  to  increase 
from  0.8625  (in  the  10  mil  sheet)  to  0.9811  (in  the  20  mil  sheet). 

This  analysis  assumes  the  B  particle  is  produced  at  the  outer  edge  of 
the  silver  sheet.  A  more  reasonable  assumption  assumes  an  effective  B 
production  site  is  located  at  the  nuclear  reaction  centroid  location. 

The  centroid  of  the  silver  sheet  Is  determined  by  the  Integral 

f  r  f(r)  dr 
r  =  _ _ 

|  f(r)  dr 

where  radial  position  is  used  because  of  the  tube  cylindrical  symmetry. 
The  weighting  function  f(r)  Is 

f(r)  =  e'Sr 

where  E  Is  neutron  absorption  cross  section.  The  limits  on  the 
Integration  go  from  r^  (the  Inner  silver  sheet  radius)  to  r^  +  5  (the 
outer  silver  sheet  radius). 

Performing  the  Integration,  we  obtain  the  relation  for  the  centroid 
position  r 


V„ VSSJ W  WWJV1  JWVT.' VJ ITJVl^JV^JV^JVra  re rere; 


where  F  Is  a  geometry  factor  and  Ct  Is  the  true  count  rate  (the  first 
one  minute  count  less  background  and  corrected  for  dead  time)  of  the 
system.  For  D-D  fusion  nuclear  reactions,  they  quote  F  to  be 


F  =  30  (5.3  +  D)2 


where  D  is  the  distance  from  the  neutron  source  to  the  moderator  in 
Inches.  Lanter  and  Bannerman  state  this  relation  Is  good  to  ±15%.  We 
calculate  the  AFWL  silver  detector  neutron  response  to  be 

N  =  62.2  (5.3  +  D)2  Ct 


Following  Lanter  and  Bannerman  and  assuming  a  Geiger-MDller  tube 
recovery  time  of  125  ps,  we  have  the  true  count  rate  Ct  to  be 


Ct  =  2.72x10' 


^e2.64xl0'6  C  _ 

(1  -  0.281  e2* 64x10  6  c) 


where  C  is  count  rate  corrected  for  background.  Lanter  and  Bannerman 
caution  their  derivation  Is  not  valid  for  cases  where  Ct  >  1.2C  limiting 
the  maximum  count  rate  to  be  72,500  counts  per  minute  for  one  tube  or 
290,000  counts  per  minute  for  all  four  tubes. 


One  concern  with  visible  light  photography  for  diagnosing  the  plasma 
behavior  has  been  noted  by  Mather — visible  light  output  does  not 
necessarily  correlate  with  plasma  behavior  [168],  Visible  light 
production  mechanisms  do  not  necessarily  reflect  plasma  mechanisms. 
Plasma  sheath  velocity  does  not  necessarily  relate  to  visible  light 
velocity.  While  visible  light  photography  does  yield  qualitative  plasma 
Information,  It  Is  not  readily  converted  to  useful  quantitative  data. 


An  open  shutter  cameras  took  time  integrated  pictures  of  visible  light 
processes  within  the  plasma  gun,  but  It  was  of  limited  use.  With  only 
three  available  ports,  access  to  the  plasma  gun  Is  limited.  There  are 
two  2"  (5.08x10  m)  ports  on  either  side  of  the  vacuum  vessel  covering 

the  plasma  gun.  (One  of  these  Is  seen  In  Figure  2.)  A  typical  plasma 
gun  visible  light  output  during  a  pinch  is  shown  In  Figure  18.  The 
other  access  Is  from  the  top  of  the  vacuum  vessel.  The  top  of  the 
vacuum  vessel  Is  more  limited  than  the  2"  ports.  Mounting  a  camera  to 
observe  the  vacuum  vessel  top  Involved  the  use  of  a  tripod  mount.  The 
tripod  was  prone  to  vibration  so  open  shutter  photographs  smear  due  to 
vibration  as  well  as  due  to  the  time  Integration.  When  the  upper  or 
secondary  gas  valve  Is  used.  It  requires  a  connection  to  allow  gas  to 
penetrate  the  vacuum  interface.  This  valve  requires  a  skirt  or  shield 
for  successful  operation.  (A  photograph  of  the  underside  of  the  valve 
and  the  skirt  is  shown  In  Figure  19.)  The  skirt  reduces  the  energy  load 
to  the  upper  valve  by  dissipating  It  over  a  larger  area.  Without  the 
skirt,  the  upper  valve  Is  sealed  open  or  closed. 


81 


»»# 


i  '  a  i  ttl'iil  lti  I 


r.i**  I  la  M  I 


2.5.8  Framing  Camera 


A  framing  camera  takes  a  short  time  photograph.  The  time  allowed  for 
each  photographic  Image  (a  frame)  can  be  set.  The  time  between  the 
frames  Is  also  adjustable  (within  the  limits  of  the  camera).  The  Image 
can  be  recorded  for  times  as  short  as  tens  of  nanoseconds.  The  time 
between  Images  can  be  of  the  same  order  as  the  frame  time.  A  framing 
camera  may  use  light  amplification  to  enhance  the  photographic  image. 
Our  framing  camera  did  not. 


We  used  a  framing  camera  focused  on  the  gun  muzzle.  Since  the  upper  gas 
valve  was  not  In  place,  the  muzzle  could  be  photographed.  Because  of 
problems  with  timing  and  the  pulsed  electromagnetic  environment,  only 
one  useful  framing  photograph  was  obtained.  This  was  reported  In  the 
paper  by  Degnan  et  al.  [102]  and  Is  shown  as  Figure  20.  In  that 
photograph,  the  visible  light  Intensity  Increased  significantly  during 
the  discharge.  Since  we  did  not  use  light  Intensification  techniques. 
Imaging  was  a  problem. 


An  end  view  of  the  gun  muzzle  Is  shown  In  Figure  20.  There  are  three 
frames  of  the  coaxial  gun  discharge  running  sequentially  from  bottom  to 
top.  Each  frame  shows  a  50  ns  exposure.  The  time  between  frames  (from 
the  start  to  start  of  each  frame)  Is  100  ns.  The  first  frame  is  under¬ 
exposed.  The  second  frame  shows  the  plasma  lighting  the  24  cathode  rods 
In  the  plasma  gun  annulus.  The  third  and  final  frame  shows  the  plasma 
coming  off  the  gun  muzzle.  The  large  light  output  may  be  due  to  fast 
plasma  Impinging  on  the  upper  Lexan  cover  and  Inducing  luminescence. 
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Attempted  Experimental  Diagnosis 


This  section  discusses  additional  diagnostic  techniques  that  were 
attempted,  even  if  they  yielded  less  than  fully  successful  results. 
This  provides  a  more  complete  listing  of  the  attempted  diagnostic 
devices  applicable  to  the  reported  coaxial  plasma  gun  system. 


2.5.9. 1  Interferometry.  Interferometry  Is  used  to  measure  electron 
density  ng  over  an  optical  path  length  through  the  plasma.  Specifying  a 
monotonic  radiation  source  (such  as  a  maser  or  laser)  and  using  a  Fabry- 
Perot  Interferometer,  the  governing  relation  is 


2n£  *  rnX 

where  n  Is  index  of  refraction,  1  is  the  optical  path  length,  X  is 
characteristic  radiation  wavelength  and  m  an  Integer. 

Assuming  the  plasma  Is  unmagnetized  and  consists  of  normal  matter 
(electrons  and  Ions,  Instead  of  mesonlc  matter  or  antimatter),  the 
relation  for  the  Index  of  refraction  Is 


f 

1  ~  1 
e 2 


where  f  Is  plasma  frenuency  and  f  Is  characteristic  wavelenqth  of  the 
probing  electromagnetic  radiation. 


From  [169],  we  have 
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f  «  8.98xl03  n\/2  Hz 
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where  ng  Is  number  density  of  electrons  In  cm  .  For  singly  Ionized 


plasmas,  the  Ion  density  n^  Is  approximately  equal  to  the  electron 
density,  l.e.,  n^  =  ng. 


f  f 

If  we  realize  the  ratio,  _f.  Is  very  small  (_£  «  1),  we  approximate  the 

f  f 


Index  of  refraction  n  by 


n  s  1 


Noting  the  Interferometer  measures  change  through  destructive 
Interference  of  the  electromagnetic  radiation  (fringes),  we  have 


2  2, An  *  XAm 


where  An  is  change  in  the  Index  of  refraction  and  Am  an  Integer. 


We  then  have  the  relation  for  the  electron  density  n. 


1.115x10°  Am 
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There  Is  a  limit  to  the  Interferometer  effectiveness  when  the  plasma 
electron  density  becomes  too  dense  for  the  radiation  to  penetrate  the 
plasma.  This  limiting  condition  occurs  when  the  characteristic 
radiation  frequency  u>  equals  the  plasma  frequency  u>p,  l.e., 

v2 

U)  =■  2xf  =  u>  =  (  e  ) 
me£o 

A  listing  of  the  limiting  electron  densities  for  various  different 
radiation  sources  Is  given  In  Table  4. 

In  our  experiment,  we  used  a  helium  neon  (HeNe)  laser.  However,  any 
Interferometric  data  was  masked  by  excessive  electromagnetic  noise. 

The  previous  discussion  assumes  the  effect  of  density  gradients  Is 
negligible.  With  large  gradients,  the  laser  light  would  be  refracted 
out  of  the  optical  path  length  [170]  according  to  the  reported  relation 


R  n 


where  R  Is  radiation  radius  of  curvature  from  the  optical  path,  n  Is 
local  refractive  Index,  vn  Is  gradient  of  the  local  refractive  index  and 
n  Is  a  local  unit  normal.  In  our  experiments,  the  optical  light  paths 
are  not  be  particularly  large  (on  the  order  of  several  meters),  but  the 
density  gradients  c?"  be  very  large. 
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Table  4.  Limiting  Plasma  Electron  Densities  for  Various  Sources 


Electromagnetic  Radiation 

Wavelength 

Plasma  Electron 

o 

Density  (cm  ) 

3  GHz  microwave 

10 

cm 

l.lxlO11 

30  GHz  microwave 

1 

cm 

l.lxlO13 

300  GHz  microwave 

1 

mm 

l.lxlO15 

3  THz  microwave 

0.1 

mm 

l.lxlO17 

CO,  laser 

10.6 

pm 

9.9*1018 

L 

CO  laser 

5 

pm 

4.5*1019 

InGaAsP  diode  laser 

1.550  pro 

4.6xl020 

NdYAG  laser 

1.32 

pm 

6.4xl020 

HeNe  laser 

594 

nm 

3.2xl021 

ArF  exclmer  laser 

193 

nm 

3.0xl022 

The  density  gradient  and  derivative  of  the  density  gradient  form  the 
basis  of  Sch Heron  and  shadowgraph  diagnostic  techniques  [171]. 

Although  laser  shadowgraphy  was  successfully  used  on  the  AFWL  SHIVA 
device,  Schlleron  and  shadowgraphy  techniques  were  not  used  on  the 
experiments  described  here. 

2. 5. 9. 2  Streak  Camera.  The  streak  camera  takes  a  time  Integrated 

photograph  of  an  object  [172],  smearing  the  Image  as  a  function  of  time. 
However,  this  time  smearing  Is  controlled.  The  Image  Is  moved  at  a 
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fixed  rate  so  the  Image  can  be  known  as  a  function  of  time  through  the 
corresponding  position  on  the  photograph. 


The  available  ports  for  viewing  the  Images  did  not  accommodate  using  a 
streak  camera.  A  streak  camera  would  have  been  Ideal  for  examining  the 
plasma  sheath  flow  along  the  length  of  the  gun,  but  this  would  have 
Involved  remachining  the  experimental  hardware.  This  could  not  be 
accommodated  by  the  available  time  and  funding. 

2.5.10  Experimental  Limitations 

The  series  of  experiments  discussed  here  are  limited.  It  Is  not  the 
purpose  of  this  section  to  minimize  the  effect  of  these  limitations; 
some  of  them  are  significant.  The  discussion  Is  provided  for 
Identifying  the  effect  of  the  limitations  on  the  data  and  results  that 
follow.  If  some  procedure  were  not  followed  or  some  method  not  used, 
this  section  should  provide  some  Illumination  as  to  the  rationale. 

2.5.10.1  Time  Limitations.  Time  on  the  AFWL  PUFF  capacitor  bank  was 
limited  by  management  concerns.  Maximum  system  use  was  required.  Since 
the  coaxial  plasma  gun  required  priming  or  clearing  with  an  Initial 
shot,  gun  operation  over  many  days  requires  more  time  and  energy  for  gun 
preparation  than  If  the  shots  were  performed  in  rapid  succession.  As  a 
result,  many  shots  were  performed  in  a  relatively  short  time. 

This  limitation  allowed  little  time  for  the  examination  of  data  and  for 
reflection  on  experimental  results.  After  the  experimentation  was 
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completed,  no  amount  of  reflection  and  analysis  would  h?we  provided  the 
personnel  and  funding  to  continue.  Had  more  time  been  available,  the 
experimental  series  would  have  most  certainly  been  more  comprehensive, 
thorough  and  complete. 

A  third  constraint,  not  directly  relating  to  the  experimentation, 
limited  the  timely  reporting  of  the  results.  Following  experimentation, 
recorded  data  (oscilloscope  pictures)  are  required  to  be  digitized  Into 
numerical  form  suitable  for  analysis.  Having  up  to  20  voltage  traces 
for  each  data  shot  and  each  data  trace  must  be  digitized,  taking  from  10 
to  60  minutes  per  trace.  The  data  needs  to  be  made  acceptable,  l.e., 
high  frequency  noise  required  smoothing,  baseline  corrections  needed 
to  be  made  (where  digitization  Introduced  slope  errors)  and  conversion 
factors  were  used  to  convert  voltage  traces  Into  system  voltages, 
currents  and  magnetic  fields.  Correction  of  a  single  digitized  trace 
requires  over  an  hour.  With  711  oscilloscope  traces,  data  conversion  is 
time  and  labor  Intensive.  Only  part-time  efforts  could  be  devoted  to 
completing  the  analysis. 

2.5.10.2  Equipment  Limitations.  Two  major  experimental  limitations 
should  be  noted:  the  screen  room  used  to  house  the  oscilloscopes  was 
not  completely  effective,  giving  rise  to  excessive  amounts  of  noise  on 
the  data,  and  fiducial  signals  were  not  superimposed  on  the  data  traces. 
Other  experimental  limitations  can  be  compensated  for  or  corrected; 
these  two  could  not  be  totally  compensated  for  or  corrected. 
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After  completion  of  the  experimental  series.  It  was  discovered  the 
Isolation  feedthrough  connections  (connecting  the  signal  sources  and  the 
oscilloscopes)  were  Installed  In  the  screen  room  backward.  This  caused 
the  screen  room  (Ideally  a  Faraday  cage)  to  be  Incompletely  grounded  and 
allowed  a  high  frequency  noise  from  the  capacitor  discharge  In  the  data. 


In  terms  of  data  analysis,  the  second  restriction  Is  more  stringent. 
Having  no  time  flduclals  Introduced  timing  errors.  Data  analysis 
yielding  sheath  velocities,  current  simultaneity  at  an  axial  position, 
azimuthal  sheath  symmetry  and  the  current  as  a  function  of  both  time  and 
position,  was  more  difficult  than  otherwise  would  have  been  the  case. 
Certain  assumptions  have  been  made  In  data  extraction.  While  these 
assumptions  are  reasonable,  they  are  not  without  qualification. 


2.6  NOMENCLATURE  USED  IN  THIS  EXPERIMENTAL  SERIES 


In  the  experimental  series,  a  standardized  designation  for  different 
shots  and  data  traces  Is  maintained.  This  notation  Is  followed 
throughout  this  dissertation. 


The  format  followed  for  naming  traces  Is 


M  DD  SS  I  N 


where  M,  DD,  SS,  I  and  N  are  one  or  two  character  alphanumeric  fields. 
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H  Is  a  one  character  alphabetic  field  representing  the  month  of  the 
particular  shot.  It  was  N  If  the  month  of  the  shot  were  November;  D  If 
It  were  December;  and  J  If  It  were  January. 

DD  Is  a  two  character  numeric  field  representing  the  day  of  the  month  of 
the  particular  shot.  DD  varies  from  01  to  31. 

SS  Is  a  two  character  numeric  field  representing  the  number  of  the 
particular  shot.  SS  begins  at  01. 

I  Is  a  one  character  alphabetic  field  representing  the  type  of  detector. 
If  the  Identifier  were  I,  It  represents  a  current;  If  It  were  B,  It 
represents  a  magnetic  field;  If  It  were  V,  It  represents  a  voltage 
probe;  and  If  It  were  N,  It  represents  a  neutron  detector. 

N  Is  a  one  character  alphanumeric  field  further  characterizing  the 
Identifier  I.  N  Is  explained  In  Table  5. 

$  probes  are  classified  according  to  position.  Details  are  given  In 
Section  3.  There  are  four  §  probes  In  each  level  and  at  each  azimuthal 
position. 

The  notation  J0703BP  represents  the  signal  for  the  5  probe  P  for  the 
third  shot  on  January  7.  Similarly,  D2901VN  Is  the  north  voltage  probe 
signal  for  the  first  shot  on  December  29.  J1111IC  Is  the  chamber 
current  signal  for  the  eleventh  shot  of  January  11. 
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Table  5.  Identification  of  Probe  Nomenclature 


Probe  Type  Identifier  I  Identifier  N  Particular  Probe 


Rogowskl  coll 

I 

C 

chamber  or  center  Rogowski 

I 

R 

counter-rotating  Rogowskl 

Voltage 

V 

N 

north  voltage  probe 

V 

S 

south  voltage  probe 

$  probe 

B 

B 

§  probe  B 

B 

C 

8  probe  C 

B 

D 

§  probe  D 

B 

E 

§  probe  E 

B 

F 

§  probe  F 

B 

G 

§  probe  G' 

B 

H 

8  probe  H1 

B 

J 

8  probe  J' 

B 

L 

8  probe  L 

B 

M 

8  probe  M 

B 

N 

8  probe  N 

B 

0 

8  probe  0 

B 

P 

8  probe  P 

B 

Q 

8  probe  Q 

B 

R 

8  probe  R1 

B 

S 

8  probe  S 

Neutron  detector 

N 

B 

bare  (unfiltered) 
scintillator 

photomu 1 t i p 1 i er  detector 

3.0  AFWL  COAXIAL  PLASMA  GUN 
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In  this  section,  the  specifics  of  the  AFWL  PUFF  coaxial  plasma  gun  are 
examined.  Specifically  discussed  are  the  placement  of  § 
probes,  Rogowskl  colls  and  capacitive  voltage  probes  and  their  effect  on 
the  experimental  data. 

3.1  COAXIAL  PLASMA  GUN  THEORY 

Although  the  plasma  gun  theory  Is  discussed  In  Section  2,  this  section 
discusses  the  coaxial  plasma  gun  In  greater  detail.  This  discussion 
addresses  the  PUFF  coaxial  plasma  gun  specifics. 

3.1.1  Plasma  Formation  In  the  Coaxial  Plasma  Gun 

Before  a  plasma  gun  can  operate,  a  plasma  must  be  formed.  Before  plasma 
formation,  matter  must  be  Inserted  Into  the  gun  for  Ionization  to  the 
plasma  state.  One  means.  Ideally  the  primary  means,  for  delivering 
matter  to  the  coaxial  plasma  gun  Is  neutral  gas  injection.  However, 
other  means  exist  for  Inserting  matter  In  the  coaxial  plasma  gun. 
Dielectric  (Insulator)  material  can  ablate  as  a  function  of  its 
dielectric  strength  and  the  applied  voltage.  Physically  adsorbed  or 
physically  embedded  gas  molecules  can  evolve  with  application  of  high 
voltages.  When  reactive  gases  are  used  In  the  plasma  gun,  chemically 
absorbed  molecules  can  be  released.  When  adsorbed  or  chemisorbed 
molecules  are  released,  they  are  subject  to  the  same  dielectric  stress 
of  the  injected  gas. 
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In  most  coaxial  plasma  guns,  a  non-lcnlzed  gas  dissociates  Into 
electrons  and  Ions  according  to  the  gas  dielectric  strength  (given  by 
the  gas  Paschen  curve)  when  high  voltage  Is  applied.  In  these  guns,  gas 
generally  dissociates  at  the  vacuum/dlelectrlc  Interface.  With  spark 
formation  of  the  breakdown,  ultraviolet  light  and  soft  X-rays  are 
emitted.  These  high  energy  photons  release  electrons  through  the 
photoelectric  mechanism.  The  photoelectron  evolution  Is  photon  spectrum 
and  materials  dependent. 


In  the  PUFF  coaxial  plasma  gun,  the  dielectric/vacuum  Interface  Is 
remote  from  the  gun.  Since  the  dielectric  Is  Isolated  from  ultraviolet 
and  soft  X-radlatlon  produced  by  the  plasma  formation.  It  does  not 
Influence  the  plasma  formation  In  the  gun.  Paschen  gas  breakdown 
predominates  the  plasma  formation  and  the  plasma  Is  formed  near  the  gas 
outlet  In  the  gun  annulus.  The  evolution  of  gas  (through  release  of 
embedded,  adsorbed  and  chemisorbed  material)  from  plasma  gun  surfaces  Is 
a  factor  In  the  plasma  formation  In  the  AFWL  plasma  gun.  In  terms  of 
the  total  plasma  formation.  It  Is  generally  a  small  factor,  but  It  Is 
nevertheless  a  real  factor.  This  Is  evident  by  the  need  to  precondition 
the  plasma  gun  with  clearing  shots. 


Depending  on  the  coaxial  gun  plasma  density  distribution,  a  current 
carrying  plasma  sheath  Is  formed.  If  the  plasma  sheath  is  narrow. 
Indicating  a  higher  conductivity  in  the  plasma  than  In  the  surrounding 
gas,  the  plasma  Is  driven  along  the  plasma  gun.  The  sheath  may  drive 
mass  ahead  of  It;  this  Is  the  snowplow  mode.  If  this  narrow  sheath  does 
not  appreciably  accrete  mass,  this  would  be  a  washer  or  slug  mode.  This 
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washer  or  slug  mode  Is  a  limiting  case  of  the  snowplow.  If  the  current 
sheath  Is  diffuse,  the  plasma  remains  relatively  stationary.  This  Is 
the  deflagration  mode.  In  our  plasma  gun,  the  sheath  appears  to  be  a 
combination  of  the  slug/washer  and  the  deflagration  modes.  There  Is  no 
analog  to  the  sheath  lift-off  of  other  coaxial  plasma  guns  In  the  AFWL 
plasma  gun. 


3.1.2  Sheath  Velocity  Theory 


There  are  several  models  for  the  coaxial  plasma  gun  sheath  velocity. 
Four  of  these  models  are  discussed  here.  The  first  model  Is  the 

t 

colllslonally  dominated  model  of  Alfven  [173],  a  theory  promoted  by 
Axn3s  [174-177]  and  Raadu  [178,  179]  of  Sweden.  The  second  model  Is 
that  of  Rosenbluth  [180],  developed  for  analysis  of  a  toroidal  z-plnch. 
The  third  model  Is  a  single  particle  drift  velocity.  The  fourth  model 
Is  the  limited  or  saturated  velocity  model  reported  by  Flshblne  [181]. 


3. 1.2.1  Alfven  Sheath  Velocity  Model.  The  Alfven  model  assumes  a 
weakly  Ionized  magnetized  plasma  in  a  sea  of  neutral  particles.  In  this 
model,  the  critical  velocity  Is  limited  by  charged-neutral  particle 
collisions.  At  the  neutral  particle  Ionization  energy,  neutral 
particles  are  Ionized  and  absorb  energy  from  the  plasma.  A  resonance 
absorption  Is  formed  when  the  energy  of  the  neutrals,  En,  equals  the 
Ionization  energy  of  the  plasma 


E  =  1  m  u*;  *  eV, 

n  2  n  c  ' 


where  mn  Is  mass  of  the  neutral  particle,  uc  Is  Alfven  critical 
velocity,  e  Is  electronic  charge  and  Is  Ionization  potential  of  the 
neutral  gas.  This  Is 


2eV.  1/2 

uc  *  (_)  . 

mn 


The  Alfven  critical  velocity  depends  only  on  the  neutral  gas. 


Using  our  experimental  conditions,  the  Alfven  critical  velocity  can  be 

derived.  With  a  D2  Ionization  potential  of  15.46  eV  (2.477><10_1®  J) 
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and  a  mass  of  6.695x10  kg  for  a  D2  molecule,  the  Alfven  critical 

velocity  Is  2.7xl04  m/s. 


3. 1.2.2  Rosenbluth  Sheath  Velocity  Model.  The  Rosenbluth  sheath 
velocity  v$  Is  derived  from  theory  for  the  Perhapsatron  toroidal  z-plnch 
device.  The  applicable  equation.  In  SI  units,  becomes 


vs-(. 


£  cV  1/4 


where  e  Is  electrical  permittivity  of  free  space,  c  Is  speed  of  light 

0 

2 

In  a  vacuum,  E  Is  square  of  the  electric  field  and  p  Is  density  of  the 
Ionized  material. 


In  our  geometry,  the  electric  field  Is  a  function  of  radius.  The 
electric  field  strength  E  becomes 


2V 
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where  V  Is  potential  difference  from  a  charged  transmission  plate  to 


ground  potential.  (The  total  potential  difference  across  the  gun 
becomes  2Vo.)  Radial  position  Is  represented  by  r.  The  coaxial  gun 
Inner  and  outer  electrode  radii  are  respectively  a  and  b. 


To  calculate  the  Rosenbluth  sheath  velocity  In  our  system,  some 


assumptions  about  the  charged  particle  density  are  made.  If  the  gas  Is 


uniformly  dispersed  In  the  coaxial  plasma  gun  annulus,  the  mass  load  is 


the  total  gas  load  from  the  upper  gas  valve  (32.9  mg  of  D2)  and  is 


O  O 

completely  Ionized,  the  charged  particle  mass  density  Is  4.5*10  kg/m. 


With  Inner  diameter  (2a)  of  5.125"  (0.1302  m),  outer  diameter  (2b)  of  7" 


(0.1778  m)  and  applied  voltage  (2V  )  60  kV,  the  sheath  velocity  ranges 


1“  m  / 1-  min  .iimf.nn  t  n  _  kn  1 


from  1.2*10  m/s  at  the  outer  gun  surface  (r  =  b)  to  1.4*10  m/s  at  the 


Inner  gun  surface  (r  *  a). 


Assuming  a  total  charged  particle  mass  of  0.1  mg  in  a  1  mm  thick  sheath 


In  the  gun,  the  sheath  velocity  ranges  from  1.0*10°  m/s  (at  r  *  b)  and  a 


sheath  velocity  of  1.2*10°  m/s  at  the  gun  surface  (at  r  *  a).  For  a  1 


cm  thick  sheath  for  the  same  mass,  the  sheath  velocity  Is  1.8*10°  m/s 


(r  ■  b)  and  2.1*10°  m/s  (r  =  a).  If  the  sheath  thickness  is  1  1/2"  (the 


width  of  the  gas  Inlet  holes)  for  the  same  mass,  the  sheath  velocities 


are  2.5*10^  m/s  (r  *  b)  and  2.1*10^  m/s  (r  =  a). 
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For  these  charged  particle  mass  densities  (ranging  from  2.3*10”4  to 
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8.7*10  kg/m  ),  the  Rosenbluth  sheath  velocity  varies  from  2.5*10  to 

c 

10  m/s.  The  factor  of  2.5  variation  In  the  sheath  velocity  for  a 


factor  of  40  In  density  Is  a  result  of  the  p 


-0.25 


velocity  scaling. 


3. 1.2.3  Single  Particle  Drift  Velocity  Model.  The  single  particle 
drift  velocity  model  assumes  the  sheath  velocity  can  be  approximated  by 
the  single  particle  drift  velocity.  It  Ignores  the  effects  of  particle 
Interactions.  While  not  providing  the  detail  of  a  self-consistent 
multidimensional  magnetohydrodynamic  (MHD)  treatment.  It  serves  to 
benchmark  the  sheath  velocity. 

In  Section  2,  we  see  the  magnetic  field  generated  In  the  annular  region 
(a<r<b)  Is 


U.I 

B  «  _1_ 
2xr 


From  Section  3. 1.2.2,  the  electric  field  In  the  plasma  gun  annulus  Is 


V 


and 


v 


0 


4xV 

0 

u  I  Mb 
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This  formulation  depends  on  applied  voltage  (2 V  ),  current  (I)  and 

0 

coaxial  plasma  gun  radii  a  and  b.  Unlike  the  Rosenbluth  velocity,  there 
Is  no  radial  dependence.  This  formulation  Is  limited  to  the  condition 
a<r<b.  Assuming  colllslonal  effects  are  small,  this  drift  velocity  can 
apply  to  both  the  snowplow  and  the  deflagration  modes  of  the  coaxial 
plasma  gun. 

For  the  coaxial  gun  dimensions,  applied  voltage  (2V  )  of  60  kV  and  gun 

5 

current  of  1.4  MA,  the  single  particle  drift  velocity  vQ  Is  6.9x10  m/s. 


3. 1.2.4  Limited  or  Saturated  Sheath  Velocity  Model.  Assuming  a 
limited  sheath  velocity  exists,  simple  physics  can  be  used  to  calculate 
this  limited  or  saturated  sheath  velocity  v^.  Such  limitations  can 
result  from  mass  accretion  ahead  of  the  sheath  (and  thus  applicable  to 
the  snowplow  mode).  Particle  collisions  can  also  provide  a  limiting 
mechanism  for  the  limited  or  saturated  sheath  velocity. 


Following  Flshblne  (181], 

F  =  dp  =  d(mv) 
dt  dt 


where  F  is  applied  force,  p  Is  linear  momentum,  m  Is  total  mass  and  v  Is 
the  linear  velocity  of  the  mass.  In  this  analysis,  all  velocities  are 
non-relatlvlstlc.  The  pressure  P  acts  normally  on  the  area  dS. 


In  this  analysis,  a  cylindrical  geometry  Is  assumed.  The  area  dS  Is 


dS  *  *  <rl+l  -  ri> 


where  r^  Is  Inner  radius  and  r^+1  Is  outer  radius.  The  mass  of  the  gas 
m  becomes 

m  *  p  t  dS 

where  p  Is  sheath  material  density  and  t  Is  axial  sheath  thickness. 
Equating  the  two  relations  for  force  F,  we  have 


dt 


(p  t  dS  v)  =  J  P  •  n  dS 


Assuming  the  pressure  P  Is  approximately  constant  over  the  area  dS,  the 
relation  becomes 


J  P  •  n  dS  =  P  dS 
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where  P  now  represents  the  average  scalar  pressure.  For  a  cylindrical 
geometry  and  only  an  axial  velocity,  we  have 


1  (P  t  dS  -  P  dS 
dt  dt 


for  the  axial  position  z. 


For  a  complete  snowplow  analysis,  the  quantities  p,  t,  dS  and  _  are  all 

dt 

functions  of  time.  The  mass  density  p  changes  by  mass  accretion  and 
leakage  (If  applicable).  The  thickness  t  changes  as  a  result  of  mass 
accretion.  Changes  In  p  and  t  depend  on  the  mass  ahead  of  the  sheath, 
mixing  processes  In  the  sheath  and  whether  material  ahead  of  the  plasma 
sheath  Impacts  the  sheath  elastically  or  Inelastlcally.  The  area  dS 
changes  through  plasma  sheath  tilting  In  the  coaxial  gun  annulus. 
Because  of  these  time  variations,  complete  sheath  analysis  generally  Is 
not  possible.  However,  for  an  estimated  saturation  velocity  v^,  a 
complete  analysis  Is  not  required. 


If  we  assume  the  sheath  thickness  t  to  be  equal  to  the  axial  dimension  z 
(such  as  Is  the  case  In  the  early  stages  of  a  snowplow  mode  or  In  a 
deflagration  mode),  we  then  have  the  relation 


P  dS  1.  (z  ^f)  =  P  dS 
dt  dt 


tfl 


Since  this  model  assumes  steady  state  conditions,  the  acceleration  a 
d2 

(_ _ )  Is  zero  and  we  have 

dt2 


or 


p  t  *  Li  +  (^)2  ]  -  p  -  p  (^!)2 

dt2  dt  dt 


df  .  (P)i/2 

dt  p 


Up  to  this  point,  no  assumptions  have  been  made  about  the  pressure  P 
profile  or  the  mass  density  p  profile.  If  we  assume  a  magnetic  piston 
(l.e.,  a  pressure  wave  created  by  the  magnetic  field  B)  drives  along  the 
plasma  gun  and  any  other  pressures  can  be  Ignored,  we  can  derive  a 
limiting  sheath  velocity  v$  for  the  AFWL  coaxial  plasma  gun  conditions. 
The  magnetic  pressure  Pm  Is 


0 


and  we  have 


v 


l 


B2  il/2 
2pu 

0 


1/2 

Except  for  a  factor  of  2  ,  the  limited  or  the  saturation  velocity  Is 

Identical  to  the  Alfven  velocity  (B/(y  p)1^2). 

0 


ill 
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Using  the  B  field  relation  from  Section  3. 1.2. 3,  we  have 


TV  V.  V  ri 

$ 

■:J 


ruoii/2  i 

2p  ar 

A 

A 

Using  the  assumptions  about  mass  density  (p)  from  Section  3. 1.2.2  and 
assuming  a  current  I  of  1.4  MA,  we  can  calculate  sheath  velocities  v^ 
for  our  plasma  gun  conditions.  These  results  are  summarized  In  Table  6. 


It  can  be  seen  that  the  limited  or  saturated  velocity  v^  varies  from 
4  5 

2.1><10  to  1.8x10  m/s  depending  on  the  mass  density  p  and  the  radius  r. 
The  saturated  velocity  v^  is  Inversely  proportional  to  radius  and  the 
square  root  of  total  mass  density. 


Table  6.  Calculated  Limited  or  Saturation  Sheath  Velocity 


Density 

Mass  Distribution  of  Sheath 

Radius 

Velocity  v^ 

(kg/m3) 

(m) 

(m/s) 

4.5xl0~3 

32.9  mg  mass 

Isotropically  distributed 

0.0651 

4.0xl04 

4.5xl0-3 

32.9  mg  mass 

Isotropically  distributed 

0.0889 

2.9xl04 

8.7xl0“3 

0.1  mg  mass 

In  1  mm  thick  sheath 

0.0651 

2.9xl04 

8.7xl0-3 

0.1  mg  mass 

In  1  mm  thick  sheath 

0.0889 

2.1xl04 

8.7xl0'4 

0.1  mg  mass 

In  1  cm  thick  sheath 

0.0651 

9.1xl04 

8.7xl0-4 

0.1  mg  mass 

In  1  cm  thick  sheath 

0.0889 

6.7xl04 

2.3xl0-4 

0.1  mg  mass 

In  1  1/2"  thick  sheath 

0.0651 

18.0xl04 

2.3xl0"4 

0.1  mg  mass 

In  1  1/2"  thick  sheath 

0.0889 

13.2xl04 
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3.1.3  Plasma  Physics  at  the  Gun  Muzzle 

Although  a  complete  description  of  the  physics  of  the  sheath  exiting  the 
gun  muzzle  Is  beyond  the  scope  of  this  dissertation,  two  effects  should 
be  noted.  The  first  is  the  plasma  exits  the  coaxial  gun  with  a  directed 
forward  velocity.  The  second  Is  the  radial  convergence  of  mass  at  the 
gun  muzzle.  This  focused  radial  convergence,  or  pinching,  can  lead  to 
the  turbulent  plasma  behavior  and  an  Increase  In  plasma  density.  This 
plasma  pinch  can  be  a  source  of  radiation  and  fusion  reactions. 

3.2  COAXIAL  PLASMA  GUN  PERSPECTIVE 


Coaxial  plasma  guns  are  classified  by  geometry,  by  polarity,  by  gas 
loading  or  by  plasma  gun  energy  delivery.  A  great  deal  of  work  has  been 
performed  on  coaxial  plasma  guns.  An  overview  of  the  field  will  be 
either  be  extensive  and  lengthy  or  short  and  general.  In  this  section, 
the  AFWL  coaxial  plasma  gun  Is  placed  within  the  general  framework  of 
past  coaxial  plasma  gun  work. 


Coaxial  plasma  gun  geometries  divide  them  Into  the  Mather /Marsha 11 
plasma  and  the  Filippov  geometry.  In  the  Mather/Marshall  plasma  gun, 
the  ratio  of  the  outer  to  Inner  coaxial  gun  radius  (b/a)  Is  on  the  order 
of  1.3  to  3.  The  length  1  of  the  Mather/Marshall  gun  Is  several  times 
larger  of  the  radii  a  or  b  and  the  annulus  (b  -  a).  In  the  Filippov 
geometry,  the  ratio  of  the  outer  to  Inner  coaxial  gun  radius  (b/a)  is  on 
the  order  of  1.02  to  1.2.  The  Filippov  gun  length  £  Is  short  compared 
to  the  radial  dimensions  a  and  b.  The  Mather/Marshall  gun  can  be  used 
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In  either  the  snowplow  or  deflagration  modes.  The  Filippov  gun  Is  used 
more  In  the  snowplow  mode,  since  the  aspect  ratio  radially  focuses  the 
plasma  In  a  pinch  at  the  gun  muzzle  than  ejecting  It.  The  PUFF  coaxial 
plasma  gun  Is  a  Mather/Marshall  gun.  The  outer  to  Inner  electrode 
radius  ratio  (b/a)  Is  1.4.  The  length  l  to  the  Inner  electrode  radius 
ratio  (4/a)  for  the  AFWL  plasma  gun  Is  7.1. 

Variations  on  the  standard  geometries  Include  varied  or  altered 
electrodes  or  simultaneous  multiple  coaxial  guns.  Alterations  Include 
sloped  or  tapered  electrodes  to  achieve  a  geometric  plasma  focusing  to  a 
point.  Coaxial  plasma  gun  electrodes  can  be  perforated  to  allow  for 
diagnostic  access.  Plasma  gun  electrodes  can  be  made  of  rods  or  tubes 
Instead  of  solid  metal;  the  rod  structure  allows  diagnostic  access  the 
solid  metal  electrodes  would  not  allow,  as  well  as  producing  plasma 
effects  not  found  In  solid  electrode  plasma  guns.  These  effects  Include 
the  potential  for  reflexing  or  scattering  plasma  particles.  The  AFWL 
coaxial  plasma  gun  uses  non-tapered  electrodes,  a  solid  inner  electrode 
and  a  24  rod  outer  electrode  structure. 

In  the  coaxial  plasma  gun,  the  Inner  electrode  Is  either  positive  or 
negative.  The  polarity  Is  an  Important  factor  since  dielectric 
breakdown  and  the  gas  breakdown  are  both  geometry  and  polarity 
dependent.  In  our  coaxial  plasma  gun,  the  Inner  electrode  Is  the  anode 
(of  positive  polarity).  The  outer  rod  structures  are  the  cathode  (of 
negative  polarity). 


Plasma  gun  gas  loading  can  be  continuous  or  In  single  charges.  In  the 
continuous  mode,  the  plasma  Is  formed  (after  gun  arcing  occurs  In  the 
gas)  and  gas  Is  constantly  fed  Into  the  gun.  Continuous  gas  feed  Is 
used  for  gun  deflagration  mode  operation  and  Is  used  for  Industrial 
processes  [141-143].  Single  shot  gas  loading  Is  used  In  experimental 
systems.  Single  shot  gas  charge  timing  Is  related  to  the  function  of 
the  coaxial  plasma  gun.  The  gas  Is  Inserted  Into  the  gun  and,  after  a 
suitable  delay,  a  voltage  Is  applied.  A  short  time  delay  (so  gas  Is  not 
distributed  uniformly)  gives  rise  to  a  sharp  current  front  and  the 
plasma  gun  Initially  operates  In  a  snowplow  mode.  In  a  long  time  delay 
between  gas  Insertion  and  applied  gun  voltage  (a  static  preflll),  the 
plasma  gun  Initially  operates  In  a  deflagration  mode.  The  size  of  the 
gas  loading  determines  the  plasma  behavior  after  Initial  discharge 
occurs.  Coaxial  gun  plasma  formation  Is  dependent  on  applied  voltage 
(Including  polarity  effects),  gas  chemistry  (Including  Ionization 
potentials),  gas  density  distribution  (Including  the  effects  of  density 
gradients  and  plasma  conductivity)  and  gun  surfaces  (Including  surface 
gas  evolution  and  plasma  site  formation).  If  filamentary  currents  form 
at  gas  breakdown  and  coalesce  Into  a  narrow  plasma  sheath,  this  becomes 
a  snowplow  mode.  If  the  plasma  formation  Is  diffuse,  deflagration 
develops.  Our  plasma  has  a  single  gas  charge.  The  time  delay  between 
gas  Input  and  application  of  voltage  to  the  gun  Is  varied.  Initially, 
our  gun  has  strong  snowplow  characteristics,  but  because  a  sharp  plasma 
density  gradient  Is  not  maintained  after  discharge,  the  gun  develops 
deflagration  characteristics. 


The  stored  energy  Is  used  to  classify  coaxial  plasma  guns.  Experimental 
systems  have  energy  sources  varying  several  orders  of  magnitude.  Many 
coaxial  plasma  guns  have  delivered  energies  less  than  10  kJ. 

Experimental  work  has  reported  delivered  energies  greater  than  100  kJ 
[181]  Including  work  approaching  1  MJ  [182].  Delivered  gun  energy  Is 
Important  for  the  deuterium  plasma  focus  where  the  neutron  yield  Is 
seen  to  be  a  function  of  energy  E  so  that 


where  0  Is  a  number  on  the  order  of  2.  Increases  In  delivered  energy 
produce  a  much  larger  Increase  In  the  neutron  yield.  Our  coaxial  plasma 
gun  operated  at  130  kJ  (although  the  potential  system  energy  delivery 
exceeds  500  kJ). 

Applied  voltage  corresponds  to  the  delivered  energy  In  a  coaxial  plasma 
gun.  Many  plasma  gun  have  applied  voltages  of  30  kV  or  less.  The  AFWL 
gun  uses  an  applied  voltage  of  60  kV  or  more. 


From  simple  circuit  theory,  the  initial  voltage  across  an  inductor  Is 


where  L  Is  Inductance  and  ^  Is  time  differential  of  the  current.  From 

dt 

this  relation,  for  a  given  voltage  VL,  the  smaller  the  Inductance  L,  the 
larger  the  current  rise.  In  the  PUFF  bank,  the  system  Inductance  Is  29 


nH.  Many  coaxial  gun  systems  have  larger  Inductances.  For  an  applied 

voltage  (2V  )  of  60  kV,  the  initial  current  rise  Is  2*10*^  A/s. 

0  dt 

Mather  [183]  and  Flshblne  [184]  both  discuss  coaxial  plasma  guns  as 

plasma  focus  devices.  They  note  the  ratio  Z  /L,  where  Z  Is  effective 

0  0 

ii/2 

gun  current  source  Impedance  (Z  -  (  )  '  ,  L  is  Initial  system 

C 

Inductance  and  C  Is  system  capacitance)  and  L  Is  the  time  rate  of  change 
of  Inductance  In  the  coaxial  plasma  gun.  Reported  values  vary  from  less 

than  1.0  to  greater  than  5.0.  The  lower  the  ratio  Z  /£,  the  more  the 

0 

source  acts  as  a  constant  voltage  device.  The  higher  the  ratio,  the 
more  the  source  acts  as  a  constant  current  device.  Z  /L  for  our  gun  Is 
1.1.  This  Is  typical  of  most  reported  coaxial  plasma  gun  systems. 

3.3  COAXIAL  PLASMA  GUN  DIAGNOSTIC  DEVICES 

The  location  of  the  different  plasma  gun  diagnostic  devices  Is  discussed 
In  this  section.  Since  the  theory  was  discussed  In  Section  2,  It  Is  not 
dealt  with  here. 


3.3.1  Rogowskl  Coll  Discussion 

There  were  three  Rogowskl  coils  In  place  during  the  experimental 
sequence.  There  were  two  Rogowskl  colls  placed  In  the  transmission  line 
outside  the  helical  feed  electrodes.  The  third  Rogowskl  coll  was 
mounted  In  the  base  of  the  anode  electrode.  (The  etched  ring  in  the 


base  of  the  anode  for  the  chamber  or  center  Rogowskl  coll  can  be  seen  in 
Figure  4.) 

The  two  Rogowski  colls  mounted  outside  of  the  helical  electrodes  are  the 
counter-rotating  Rogowskl  colls.  One  of  the  Rogowskl  colls  was 
Irreparably  damaged  prior  to  the  described  experiments.  It  was  decided 
to  rely  on  the  operational  counter-rotating  Rogowskl  coil  to  measure  the 
PUFF  system  current  external  to  the  dielectric/vacuum  interface. 

The  third  Rogowskl  coll  (In  the  anode  base),  the  center  or  chamber 
Rogowskl,  measured  the  current  delivered  to  the  plasma  In  the  coaxial 
plasma  gun.  Small  differences  (±5%)  in  the  results  between  the  counter¬ 
rotating  and  the  chamber  Rogowskl  colls  can  be  ascribed  to  calibration 
errors.  Where  the  larger  errors  (>20%)  occur,  current  was  Incompletely 
delivered  from  the  transmission  line  to  the  plasma  gun.  This  Indicates 
*  "  Oectrlc/vacuum  breakdown.  When  the  discrepancies  are  very  large 
when  the  counter-rotating  current  rises  as  the  chamber  current 
simultaneously  falls),  the  breakdown  has  crowbarred  the  circuit,  l.e.. 

It  has  Isolated  the  plasma  gun  from  the  rest  of  the  PUFF  capacitor  bank 
circuit. 

3.3.2  6  Probe  Discussion 

The  §  probes  are  mounted  from  the  Inside  of  the  anode  electrode  outward. 
Their  relative  positions  are  seen  In  Figures  21  and  22.  The  §  probe 
tips  protrude  some  0.25"  (6.4x10  m)  Into  the  plasma  gun  annulus.  The 
relative  protrusion  of  the  §  probes  Into  the  coaxial  plasma  gun  annulus 
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Is  shown  In  Figure  21.  The  8  probes  are  expected  to  perturb  the  plasma, 
since  the  protrusion  Is  greater  than  25%  of  the  annular  gap. 

The  8  probe  axial  position  Is  seen  In  Figure  22.  There  are  four  axial 
levels  In  the  plasma  gun:  bottom,  mid-bottom,  mid-top  and  top.  Each 
level  Is  4"  (0.1016  m)  distance  from  adjacent  levels.  The  bottom  level 
Is  centered  10.25"  above  the  anode  base  and  3.75"  (9.35><10  m)  from  the 
centerline  of  the  gas  outlet  holes  (where  gas  from  the  primary  gas  valve 
entered  the  coaxial  plasma  gun.)  The  bottom  level  Is  14.5"  (0.3683  m) 
from  the  anode  top.  The  mid-bottom  level  Is  centered  14.25"  (0.3620  m) 
from  the  anode  base,  7.75"  (0.1969  m)  from  the  gas  outlet  centerline  and 
10.5"  (0.2667  m)  from  the  anode  top.  Similarly,  the  mid-top  level  Is 
18.25"  (0.4636  m)  from  the  anode  base,  11.25"  (0.2858  m)  from  the  gas 
outlet  centerline  and  6.5"  (0.1651  m)  from  the  anode  top.  The  top  level 
Is  22.25"  (0.5652  m)  from  the  anode  base,  14.25"  (0.3620  m)  from  the  gas 
outlet  centerline  and  2.5"  (6.35x10  m)  from  the  anode  top. 

The  6  probe  positions  are  summarized  In  Tables  7,  8  and  9.  8  probe 
position  are  given  at  each  level  and  each  azimuthal  position.  The 
azimuthal  positions  are  NE,  SE,  SW  and  NW. 


The  8  probes  are  encased  In  ceramic  sheaths.  These  ceramic  sheaths 
protect  the  8  probes  from  destruction  and  from  giving  rise  to  signals 
from  the  high  electric  fields  associated  with  plasmas.  As  the  plasma 
Impinges  on  the  sheath,  the  sheaths  may  ablate  surface  material.  To 
calculate  the  effects  of  this  ablation,  some  derivations  and  estimates 


are  made. 
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Figure  22.  Coaxial  plasma  gun  (side  view)  with  §  probes. 


Table  7,  6  Probe  Position  In  Coaxial  Plasma  Gun 


§  probe 


Axial  Position 


Azimuthal  Position 


B 

top 

NW 

C 

top 

SW 

top 

SE 

E 

top 

NE 

F 

mid-top 

NE 

G' 

mid-top 

SE 

H' 

mid-top 

SW 

O' 

mid-top 

NW 

L 

mid-bottom 

NE 

M 

mid-bottom 

SE 

N 

mid-bottom 

SW 

0 

mid-bottom 

NW 

P 

bottom 

NE 

Q 

bottom 

SE 

R' 

bottom 

SW 

S 

bottom 

NW 

Table  8.  Axial  Levels  of  6  Probes 


Axial  Level 

§  Probes 

In 

Level 

top  level 

B 

C 

D 

E 

mid-top  level 

F 

G' 

H' 

J' 

mid-bottom  level 

L 

M 

N 

0 

bottom  level 

P 

Q 

R1 

1  S 

Table  9.  Azimuthal  Positions  of  8  Probes 


Azimuthal  Positions 


§  Probes  at  Azimuthal  Position 


To  begin,  we  Invoke  three  of  Maxwell's  equations.  These  equations  are: 


V*H*  J  +  f  (2.5. 1.1.1) 

at 


V  x  E  =  -  ^  (2.5. 1.1.2) 

at 

v  •  B  «  0  (3. 3. 2.1) 

Recalling  the  constitutive  relations  and  a  generalized  Ohm's  law,  we 
have 

<e>  E  *  D  (3. 3. 2. 2) 

<U>  H  =  B  (3. 3. 2. 3) 

<c>  E  ■  J  (3. 3. 2. 4) 

where  E  Is  electric  field,  B  Is  magnetic  field  strength  and  J  Is  current 
density.  The  dielectric  permittivity  e  Is  a  tensor  quantity,  ?  Is  the 
magnetic  permeability  u  and  the  electrical  conductivity  o. 
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Several  assumptions  simplify  these  relations.  The  medium  under 
consideration  Is  considered  Isotropic  so  the  tensors  simplify  to  scalar 
quantities:  <e>  *  e;  <p>  *  jj;  and  <o>  *  o.  Assuming  the  time 


dD 


differential  of  the  displacement  current  __  Is  small  compared  to  the 

at 


dD 


current  density  J  (l.e.  _  «  J),  we  have 

at 


VxB=*pJ  =  poE 


(3. 3. 2. 5) 


v  x  E 


aB 

at 


(3. 3. 2. 6) 


Realizing  the  spatial  derivative  v  B  Is  roughly  equivalent  to  __  and  the 

R2 

gB  D 

time  derivative  __  Is  roughly  equivalent  to  _,  where  R  Is  spatial  scale 
at  t 

length  and  x  Is  time  scale  length,  we  have  the  time  scale  t 


x  *  y  o  R* 


so  the  time  x  a  magnetic  field  diffuses  through  a  material  Is  related 
linearly  to  the  magnetic  permeability  u»  the  conductivity  a  and  the 
square  of  the  scale  length  R. 


Plasma  magnetic  permeability  equals  to  the  permeability  of  free  space 

y  .  The  ablation  scale  length  Is  on  the  order  of  the  sheath  protrusion 

0 

Into  the  gun  annulus,  l.e.,  the  scale  length  R  Is  on  the  order  of  0.25" 
-3 

(6x10  m).  The  ablatant  plasma  conductivity  a  is  to  be  determined. 


If  the  plasma  sheath  Is  of  temperature  T,  the  ablatant  plasma  Is  of  a 
lesser  temperature  since  the  plasma  expends  energy  to  ablate  material. 


Plasma  conductivity  o  Is  estimated  from  the  Spitzer  formulation  [185]. 
Chen  [186]  reports  the  Spitzer  resistivity  n  to  be 


n. ,  *  5.2  »  10 


■5  In  A 


where  the  ||  subscript  represents  resistivity  parallel  to  the  B  field,  n 
Is  resistivity  In  Q-m,  T  Is  plasma  temperature  In  electron  volts  (eV) 
and  In  A  Is  the  Couloir*  logarithm. 

The  Spltzer  resistivity  of  Interest  Is  that  perpendicular  to  the 
magnetic  field  n^.  This  Is  calculated  by 

\  a  2n| |  U  +  wcTe) 

where  u>c  Is  electron  cyclotron  frequency  and  Is  electron  collision 
time. 

The  Coulomb  logarithm.  In  A,  Is  approximated  by  the  relation  [187] 

"e/2 

In  A  *  23  -  ln( _ )  where  T  Z  10  eV 

jl.5  e 

_3 

where  ng  Is  electron  density  In  cm  and  Tg  electron  temperature  In  eV. 

The  electron  cyclotron  frequency  Is 

»e  *  (!!) 
me 

where  e  Is  electronic  charge  (1.6022xl0-19  C),  B  Is  magnetic  field 

9  -31 

strength  In  Tesla  (Webers/m  )  and  mg  Is  electron  mass  (9.1095x10  kg). 
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The  electron  collision  time  xg  Is  [188] 

jl.5 

t  =  3.44xlQ5  e 

e  n  In  A 

e 

_3 

with  n„  in  cm  and  Ta  In  eV. 
e  e 

Assuming  plasma  gun  current  (I)  of  1.4  MA,  the  magnetic  field  strength 
varies  from  4.30  Tesla  at  the  the  Inner  gun  electrode  (r  =  a)  to  3.14 
Tesla  at  the  the  outer  gun  electrode  (r  =  b).  The  electron  cyclotron 
frequency  u>c  becomes  7.56X1011  s_1  at  r  =  a  and  5.52X1011  s-1  at  r  =  b. 

Using  the  density  (p)  profiles  of  Sections  3. 1.2. 2  and  3. 1.2. 4,  we 
convert  to  particle  density.  The  particle  densities  range  from  3xl016 

IQ  O 

to  1x10  particles/cm  .  For  a  deuterium  fill  gas  with  a  charge  state 
of  1,  Ion  density  n^  and  electron  density  ng  are  assumed  equal.  If 
ablation  and  photoelectric  effects  do  not  change  the  Ion  and  electron 
number  densities,  this  assumption  Is  valid.  Calculated  results  for  the 
effective  resistivities  n^  are  displayed  In  Tables  10a  and  10b. 

From  the  data  In  Tables  10a  and  10b,  several  observations  can  be  made. 
The  Coulomb  logarithm.  In  A,  varies  from  7.2  to  7.5  for  our  plasma  gun 
conditions.  This  Is  less  than  the  genera. Ized  value  of  10  that  Chen 
cites  [189]  and  smaller  than  the  range  of  10  to  20  of  the  NRL  Formulary 
[187].  The  colllslonal  range  of  the  plasma  sheath  Is  limited  under 
these  conditions  because  the  density  Is  relatively  high  and  the 
temperature  relatively  low. 
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It  should  also  be  noted  the  perpendicular  resistivity  Is  strongly 
affected  by  the  azimuthal  magnetic  field.  The  greater  the  w2t2  product, 

v  6 

the  greater  the  perpendicular  resistivity.  The  greater  the  resistivity, 
the  greater  the  magnetic  field  penetration  Into  the  plasma.  Since  the 
ablating  plasma  expands  radially  and  the  magnetic  field  Is  azimuthal, 
the  appropriate  resistivity  Is  the  resistivity  perpendicular  to  the 
magnetic  field. 

Since  the  6  probes  are  located  at  the  plasma  gun  Inner  surface  (r  *  a), 

the  data  In  Table  10b  applies.  The  perpendicular  resistivity  n  varies 
-5  -2 

from  5.8><10  to  3.2x10  flm.  Using  the  scaling  formula,  the  scaling 
time  for  magnetic  field  penetration  Into  the  plasma  Is 

t  *  p  oR2  »  p  R2/n 

0  0 

The  magnetic  diffusion  time  ranges  from  1.4  ns  to  0.780  ps.  Only  If  the 
plasma  Is  In  the  lower  ranges  of  the  resistivity  (10-4  £lm  or  less)  Is 
limitation  of  the  magnetic  diffusion  Into  the  §  probe  a  concern.  If  the 
scaling  time  t  represents  one  e-foldlng  of  the  magnetic  field  Into  the 
plasma,  a  minimum  of  three  e-foldlng  times  x  would  be  required  for  95% 
of  the  field  to  penetrate  a  distance  l  Into  the  plasma. 

Assuming  an  ablatant  plasma  temperature  (T  )  of  5  eV  or  less  and  the 
lower  end  of  the  density  range,  the  time  to  diffuse  95%  of  the  magnetic 
field  through  the  ablatant  plasma  Is  tens  of  nanoseconds.  Although 
magnetic  field  diffusion  Into  the  §  probe  could  still  present  a  problem. 
It  Is  less  a  problem  than  reported  by  Degnan  et  al.  [102]. 


3.3.3  Capacitive  Voltage  Probe  Discussion 

Two  capacitive  voltage  probes  were  used  In  the  experimental  series. 

Both  were  mounted  on  the  underside  of  the  bottom  transmission  plate 

outside  the  helical  feed  electrodes.  One  voltage  probe  was  mounted 

north  of  the  coaxial  plasma  gun;  the  other  was  mounted  south  of  the 

coaxial  plasma  gun.  The  voltage  probes  measured  only  the  coaxial  plasma 

gun  feed  voltage,  not  the  plasma  gun  voltage  Itself.  They  do  not 

reflect  the  Increased  gun  voltage  due  to  the  (I  coaxial  gun 

dt 

voltage  spike  as  a  result  of  Increased  Inductance. 

To  go  from  measured  probe  voltage  Vm  to  plasma  gun  voltage  Vp,  we  use 
the  relation 


V  =  V  +  [L(t)  -  8.2  nH]  ^  +  I  ^  +  IR 
p  m  dt  dt 

where  L(t)  Is  total  system  Inductance  (both  fixed  and  time  varying),  ^ 

dt 

Is  time  differential  of  the  current  I,  ^  Is  time  differential  of 

dt 

Inductance  and  R  Is  total  circuit  resistance.  Generally,  the  resistance 
Is  assumed  to  be  small.  For  our  experiment,  we  assumed  a  time  Invariant 
resistance  of  1  mn.  (The  8.2  nH  Inductance  Is  subtracted  from  the  total 
system  Inductance  since  It  Is  already  reflected  In  the  measured  probe 
voltage  Vm.) 


As  noted  In  Section  2,  the  capacitive  voltage  probes  were  not  calibrated 
since  changes  on  the  transmission  line  changed  the  coupling  capacitance 


between  the  probes  and  transmission  line.  A  voltage  trace  Is  obtained 
In  the  experiment.  (A  typical  voltage  trace  Is  given  In  Figure  23.)  It 
Is  digitized  In  a  method  discussed  in  Section  4.  After  the  voltage 
trace  Is  digitized  and  smoothed.  It  Is  corrected  for  RC  droop.  After 
the  numerical  correction,  the  voltage  trace  Is  ready  for  analysis.  A 
baseline  portion  of  the  trace,  where  the  voltage  trace  Is  zero,  precedes 
the  voltage  signal.  On  application  of  the  voltage  (through  the 
discharge  of  the  capacitors  through  the  rail  gap  switches),  the  voltage 
exhibits  high  frequency  ringing.  This  ringing  Is  probably  due  to  some 
Impedance  mismatch  the  transmission  line  and  the  plasma  gun  load.  After 
the  Initial  voltage  rise,  the  voltage  tends  to  stabilize  at  a  nearly 
constant  value  for  some  time.  (In  Figure  23,  the  voltage  plateau  Is 
over  1  ys.)  Using  this  voltage  plateau,  the  voltage  Is  averaged  to 
yield  a  voltage  Vavg.  This  averaged  voltage  Vayg  Is  the  basis  for  the 
Individual  probe  calibration  for  an  Individual  shot. 


There  Is  a  total  Inductance  of  29  nH  from  the  capacitor  to  the  end  of 
the  coaxial  plasma  gun.  Of  the  29  nH  Inductance,  8.2  nH  Is  the 
Inductance  from  the  capacitor  bank  to  the  voltage  monitor  position.  The 
voltage  appearing  at  the  voltage  monitor  Is  71.7%  (20.8/29.0)  of  the 
capacitor  bank  voltage.  The  voltage  monitor  calibration  constant  «v  Is 
defined  by  the  relation 


V,v.  -  Kv  (2V  )  (!^f) 
ave  v  o  2g<0 


where  Vave  is  defined  by  the  plateau  voltage  on  the  voltage  trace  and 


Figure  23.  Typical  voltage  trace. 


(Shot  taken  11  January  1984. 
0.2  V/dlv  0.5  us/dlv) 
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2Vo  Is  the  applied  voltage  to  the  plasma  gun.  The  Inductance  ratio 
(20.8/29.0)  reduces  the  voltage  appearing  on  the  voltage  monitor.  For 
our  experiments,  the  calibration  constant  Ky  Includes  the  effect  of  the 
passive  RC  Integrator.  For  a  typical  result,  the  calibration  constant 
Ky  for  voltage  trace  J1108VN  Is  9.59*10"7  V/V. 

3.3.4  Silver  Activation  Detector  Discussion 


The  silver  activated  neutron  detector  described  In  Section  2.5.6  Is 
Inherently  geometry  dependent.  The  number  of  neutrons  detected  varies 
Inversely  as  the  square  of  the  source  distance.  This  variation  reflects 
the  fact  the  solid  angle  subtended  by  the  detector  to  the  source  varies 
as  the  detector  Is  moved. 

The  silver  detector  front  face  was  8  7/8"  (0.2254  m)  from  the  anode 
center  on  all  shots  up  to  and  Including  shot  J1008.  After  that  shot 
(from  shot  01009  on),  the  detector  front  face  was  placed  24"  (0.6096  m) 
from  the  anode  center.  The  anode  center  Is  taken  as  the  neutron  source 
since  It  Is  presumed  the  plasma  pinch  occurs  there. 


The  analysis  presented  In  Section  2.5.6  does  not  Include  fast  neutron 
scattering  and  absorption  by  the  vacuum  cover.  The  vacuum  cover  absorbs 
few  fast  neutrons  since  the  cross-section  Is  small.  The  cover  scatters 
the  neutrons  Instead.  The  scatter  reduces  the  detector  response  for  a 
given  number  of  neutrons.  The  number  of  scattered  neutrons  measured  by 
the  detector  will  be  low.  This  effect  has  been  Ignored. 


The  results  reported  by  Degnan  et  al.  [102]  do  not  Include  the  effects 
of  the  thicker  silver  sheet  In  the  AFWL  detector.  The  results  also  do 
not  Include  the  effects  of  the  Increased  distance  after  shot  J1008. 
Before  shot  J1009,  the  reported  detector  response  Is  low  by  52%;  the 
reported  results  should  be  corrected  by  a  factor  of  2.07.  After  shot 
SJ1008,  the  reported  detector  results  are  low  by  a  factor  of  8.86. 
(This  factorization  Is  not  exact  since  Degnan' s  analysis  assumes  a 
background  of  150  counts/minute.  A  more  correct  background  Is  164±14 
counts/minute.  The  corrected  values  are  used  In  this  analysis.) 

3.4  AFWL  PUFF  COAXIAL  GUN  OPERATING  PROCEDURES 


Operation  of  the  AFWL  PUFF  capacitor  bank  Is  an  Involved  process.  It 
Involved  no  fewer  than  three  people  at  any  one  time.  The  number  was 
generally  four  to  six,  depending  on  the  diagnostic  devices  being  used 
and  the  data  collection  requirements. 

The  AFWL  PUFF  capacitor  bank  can  provide  high  voltages  at  lethal  current 
levels.  Standard  Air  Force  policy  requires  no  less  than  two  people  on 
location  when  hazardous  operations  are  under  way. 


The  specific  operating  procedures  for  the  AFWL  PUFF  coaxial  plasma  gun 
are  provided  In  Appendix  A. 


4.0  EXPERIMENTAL  ANALYSIS 


The  data  taken  In  the  experimental  series  Is  analyzed  In  this  section. 
This  Includes  discussion  on  the  simple  0-dlmenslonal  (0-D)  slug  model 
used  to  predict  the  behavior  of  the  plasma  sheath  flow  through  the 
coaxial  plasma  gun  annulus.  A  discussion  of  the  overall  AFWL  PUFF 
coaxial  gun  experimental  behavior  follows.  A  more  detailed  analysis  of 
three  particular  shots  follows.  The  detailed  analysis  contains 
comparison  with  the  theory. 

4.1  COMPUTATIONAL  MODELING 

The  model  used  for  simulating  the  coaxial  plasma  gun  behavior  Is 
discussed.  The  model  physics  and  how  It  applies  to  the  AFWL  PUFF 
coaxial  plasma  gun  Is  discussed.  Model  limitations  are  dealt  with  and  a 
discussion  why  other  modeling  was  not  performed  Is  presented. 

4.1.1  Slug  Model  Assumptions 

A  0-D  model  Is  chosen  to  simulate  the  coaxial  plasma  gun  behavior.  The 
slug  model  makes  several  assumptions  about  the  plasma  sheath: 

1)  All  the  mass  Is  assumed  concentrated  In  the  plasma  sheath.  No 
mass  Is  swept  up  In  the  plasma  sheath  since  there  Is  no  mass 
outside  the  sheath.  This  Is  a  plasma  slug/washer  assumption. 


2)  The  current  density  Is  assumed  to  be  Isotropic,  azlmuthally  and 
radially  symmetric.  The  only  plasma  sheath  variation  occurs  as 


It  is  accelerated  axially  along  the  coaxial  plasma  gun. 


3)  The  plasma  sheath  Is  assumed  to  be  infinitesimally  thick  and 


uniformly  accelerated  across  the  area  of  the  sheath.  This  Is 


not  a  necessary  requirement.  The  model  could  just  as  well 


assume  a  small,  finite  thickness.  The  sheath  position  would 


then  represent  the  mid-plane  of  the  plasma  sheath.  Uniform 


plasma  sheath  acceleration  Is  assumed  to  avoid  azimuthal  and 


radial  variations.  This  Is  physically  equivalent  to  assuming 


the  sheath  Is  mechanically  rigid  and  rotational ly  fixed. 


4.1.2  Physics  of  the  Slug  Model 


The  driving  circuit  Is  assumed  to  consist  of  lumped  circuit  elements. 


The  diagram  for  the  circuit  Is  given  in  Figure  24.  The  capacitance  of 


the  system  C  Is  72  pF.  There  are  three  Inductors  In  the  system.  There 


Is  the  system  Inductance  Lni  prior  to  the  voltage  probes  (that  monitor 


the  probe  voltage  Vp).  The  system  Inductance  Lq2  after  the  voltage 


probes  Is  ln9.  The  load  Inductance  L.  H  Is  the  third  inductance.  Both 


the  system  Inductances  (Lgj  and  Lq2)  are  fixed.  The  load  Inductance 


varies  as  a  function  of  time.  The  lumped  plasma  sheath  resistance  R 


also  Includes  the  system  resistances.  The  resistance  R  Is  assumed  to  be 


time  Invariant.  There  Is  a  time-varying  current  I  flowing  through  all 


the  circuit  elements.  The  Initial  capacitor  voltage  Is  V  .  Initial 
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current  I  Is  0.  The  capacitor  bank  voltage  is 


VC  -  <L01  *  L02  +  ho.d>  *  £  +  *  R>  *  1 


where  ^  is  time  differential  of  the  current  and  1oa(^  Is  time 
dt  dt 

differential  of  the  time-varying  load  Inductance. 


The  voltage  at  the  voltage  probe  Vp  Is 


Vp  -  vc  -  L01  *  «  -  (L02  ♦  Llosd)  *  «  ♦  +  R)  *  l 


The  load  voltage  V,  .  Is 


v  .  I  .  «  +  (d(L1oad)  + 
vload  Lload  —  +  ' - -  K; 


The  Newtonian  force  relation 


F  »  ma 


describes  the  plasma  sheath  acceleration  a.  The  driving  force  F  drives 
the  plasma  sheath  mass  m.  The  acceleration  Is  produced  by  the  magnetic 
force  generated  by  the  current  flowing  in  the  coaxial  plasma  gun.  The 
acceleration  a  becomes 


% 


a  -  u  ln(_)  I  /(4*ra)  a. 


where  a  and  b  are  coaxial  plasma  gun  Inner  and  outer  radii  and  I  Is  gun 
current. 


The  velocity  v  Is  produced  by  time  Integration  of  the  acceleration.  By 
time  Integrating  the  velocity,  the  axial  position  of  the  sheath  z  Is 
calculated.  For  the  Initial  conditions  where  v(0)  *  0  and  z(0)  =  Zq,  we 
obtain  a  closed  series  of  equations. 


4.1.3  Sluq  Model  Restrictions 


There  are  several  restrictions  in  this  slug  model.  Since  the  slug  model 
Is  O-dlmenslonal,  It  does  not  allow  for  any  spatial  variation  of  the 
mass  or  the  coaxial  plasma  gun.  Although  the  restriction  on  the  coaxial 
plasma  gun  does  not  affect  the  modeling  of  the  AFWL  PUFF  coaxial  plasma 
gun,  the  assumption  of  mass  In  the  sheath  only  is  not  physically 
realizable.  The  mass  only  assumption  is,  at  best,  an  approximation  to 
the  real  plasma  sheath  behavior. 


Another  slug  model  restriction  Is  that  the  calculation  terminates  when 
the  sheath  reaches  the  plasma  gun  muzzle.  Much  interesting  physics 
occurs  in  the  pinch  region  and  beyond  the  muzzle.  However,  the 
investigation  of  those  phenomena  is  beyond  the  range  of  this  study. 


A  final  restriction  relates  to  the  sheath  behavior.  The  slug  model  does 

not  deal  with  the  microscopic  behavior  of  the  sheath,  only  the  gross 

macroscopic  behavior.  Where  azimuthal  variation  occurs  (as  In  the 

spokes  or  vortices  described  at  length  by  Bostick  and  his  co-workers)  or 

when  the  sheath  varies  radially,  this  model  does  not  offer  adequate 

sheath  simulation.  Only  when  the  aspect  ratio  of  outer  to  Inner  radius 

(k)  Is  small  can  the  radial  variation  be  assumed  to  be  negligible, 
a 

More  complete  modeling  of  the  plasma  In  the  coaxial  plasma  gun  was 
contemplated,  but  such  modeling  was  beyond  the  resources  allocated  to 
this  effort.  A  multi -component  multidimensional  MHD  approach  could 
offer  much  Insight  Into  the  behavior  of  the  plasma  sheath  In  the  coaxial 
plasma  gun,  especially  In  the  region  where  the  sheath  shows  the  effects 
of  turbulence,  fl lamentation  or  other  chaotic  behavior. 

4.1.4  Computer  Coding  of  the  Slug  Model 

The  slug  Is  computationally  modeled  with  the  FORTRAN  computer  program 
CLIN.  The  program  source  code  Is  provided  In  Appendix  B.  The  program 
Is  short.  Much  of  the  program  Is  dedicated  to  comments  for  the  user.  A 
sample  Input  file  Is  also  provided  in  Appendix  B.  The  Input  file  gives 
the  value  for  the  AFWL  PUFF  coaxial  plasma  gun  system.  Since  the  code 
Is  reported  In  Appendix  B,  th"?  Interested  reader  Is  referred  there  for 
more  detail  about  the  actual  FORTRAN  coding. 


Slug  model  results  are  displayed  In  Figures  25  through  30.  These 
results  show  results  of  the  slug  model  for  PUFF  plasma  gun  conditions. 
Inner  gun  radius  (a)  Is  2  9/16"  (6.51><10  m),  outer  gun  radius  (b)  Is 

3.5"  (8.89xl0“2  m)  and  effective  plasma  gun  length  (from  the  gas  outlet 
holes  to  the  end  of  the  gun)  Is  18.25"  (0.4636  m).  The  system 


Inductances  are  Lg1  of  8.2  nH  and  Lq2  of  20.8  nH.  The  mass  of  the 
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plasma  sheath  Is  assumed  to  be  0.1  mg  (10  kg).  The  total  fixed  system 
resistance  Is  assumed  to  be  1  mfl.  The  system  capacitance  Is  72  pF.  The 
Initial  capacitor  bank  voltage  Is  60  kV.  It  should  be  noted  that,  for 
all  Figures  of  graphically  displayed  data,  the  ordinate  (x-axIs) 
exponent  Is  In  the  lower  right  corner  of  the  graph.  The  abscissa  (y- 
axls)  exponent  Is  In  the  upper  left  corner. 


In  Figure  25,  the  plasma  sheath  axial  position  as  a  function  of  time  Is 
displayed.  The  plasma  sheath  begins  at  the  Initial  position  at  the  gas 
outlet  holes.  It  slowly  separates  from  the  Initial  position  until  It 
reaches  the  end  of  the  plasma  gun  (where  the  calculation  terminates). 


In  Figure  26,  the  instantaneous  and  time  averaged  plasma  sheath 


velocities  are  displayed.  The  Instantaneous  velocity  rises  from  0  to  a 


maximum  of  79  cm/ps  (7.9x10°  m/s).  The  time  averaged  sheath  velocity  is 


28  cm/ps  (2.8x10°  m/s). 


In  Figure  27,  the  load  Inductance  Is  displayed.  It  varies  linearly 
with  the  axial  position.  It  rises  from  0  to  a  maximum  of  28  nH.  This 
value  Is  different  from  the  earlier  quoted  total  coaxial  gun  Inductance 
since  only  part  of  the  coaxial  gun  Is  In  the  circuit. 
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In  Figure  28,  the  calculated  coaxial  plasma  gun  current  Is  displayed. 

It  rises  from  0  to  a  maximum  of  1.59  MA  at  about  1.1  ps.  It  then  drops 
to  about  1.4  MA  at  the  end  of  the  calculation  at  1.62  ps. 


[ 

I  In  Figure  29,  the  calculated  load  voltage  Is  displayed.  It  rises  from  0 

to  a  maximum  of  53.3  kV  at  about  1.46  ps.  It  then  drops  to  a  slightly 
smaller  value  at  the  end  of  the  calculation. 

In  Figure  30,  the  calculated  probe  voltage  Is  displayed.  It  begins  at 
43.0  kV.  It  remains  flat  to  10%  over  the  entire  calculation.  The  probe 
voltage  drops  to  42  kV  at  0.53  ps  and  then  rises  to  44.6  kV  at  1.12  ps. 

4.2  NUMERICAL  CONVERSION 


Before  proceeding  with  analysis  of  the  experimental  results,  some 
discussion  of  the  digitization  procedures  Is  required.  Since  no 
Information  about  these  procedures  Is  available,  the  experimental 
analysis  would  be  Incomplete  without  some  documentation. 

4.2.1  Digitization  Procedures 

Two  different  computer  routines  are  used  to  convert  the  analog  data  from 
an  oscilloscope  picture  to  a  data  form  suitable  for  digital  conversion 
and  computer  storage.  Both  procedures  were  developed  by  AFWL/AWPP 
military  personnel.  The  first  was  developed  under  the  oversight  of  Capt 
Steven  S.  Payne.  The  second  was  developed  by  Capt  J.  Michael 
Westerf ield. 


4.2. 1.1  COMTAL  Digitization  Procedure.  The  first  digitization 
procedure  Involves  the  COMTAL  Image  processing  system.  It  Is  Interfaced 
with  the  AFWL/AWPP  VAX  11/750  computer  and  Involves  a  customized  FORTRAN 
computer  program  to  transfer  COMTAL  Images  to  the  VAX  system  for  storage 
and  analysis.  The  method  captures  an  oscilloscope  Image  with  the  COMTAL 
system.  The  trace  Is  stored  on  the  COMTAL  system  and  Is  converted  Into 
an  array  of  numerical  (x,y)  data  pairs.  Since  the  COMTAL  digitization 
procedure  Is  no  longer  being  actively  supported  by  AFWL/AWPP  personnel 
and  Is  not  used  for  data  conversion,  further  discussion  Is  not 
warranted.  Generalized  comments  about  this  digitization  procedure  are 
given  In  the  discussion  about  the  second  digitization  procedure. 

4.2. 1.2  BONES  and  TURTLE  Digitization  Procedures.  Because  of  the  need 
to  convert  Increasing  amounts  of  analog  oscilloscope  data  from  the 
Plasma  Physics  Branch  (AFWL/AWPP),  Capt  Westerfleld  was  tasked  to  create 
a  procedure  to  convert  oscilloscope  data  Into  numerical  data.  Capt 
Westerfleld  created  two  programs  to  be  hosted  by  the  Zenith  100 
microcomputer.  The  first  pre?ram,  BONES,  creates  digitized  data  from 
analog  oscilloscope  traces.  The  second  program,  TURTLE,  allows  display 
and  manipulation  of  the  output  hexadecimal  digitized  data  created  by  the 
BONES  program.  The  TURTLE  program  allows  the  data  to  be  output  In  the 
ASCII  format  discussed  In  Section  4.2.2. 

There  are  four  steps  In  the  BONES  digitization  procedure.  Using  an  RCA 
video  camera,  the  BONES  program  captures  a  video  Image  In  a  501  by  256 
array.  In  this  first  step,  each  element  In  the  array  contains  a 
brightness  level  from  0  to  7.  In  the  second  step,  the  BONES  program 


converts  the  brightness  level  for  each  pixel  (picture  element)  In  the 
array  Into  either  0  or  7  (fully  black  or  fully  white).  The  brightness 
cutoff  (between  fully  black  and  fully  white)  Is  adjustable  by  the  BONES 
program  user.  It  Is  typically  set  at  a  brightness  level  of .3  or  4. 

The  third  step  In  the  BONES  program  Is  functional  thinning.  This  step 
performs  the  actual  calculations  to  convert  the  pixel  array  Into  a 
functional  display.  The  program  begins  searching  from  the  first  bottom 
pixel.  (This  Is  the  pixel  located  at  position  (1,1)  In  the  array.)  The 
program  then  proceeds  upward  until  a  fully  white  pixel  Is  found.  (This 
upward  search  goes  through  pixels  (1,1)  to  (l,n),  n  Is  pixel  position  of 
the  first  fully  white  pixel.)  The  program  proceeds  upward  In  the  data 
array  until  the  fully  white  pixels  end.  This  range  of  fully  white 
pixels  Is  averaged  to  a  mid-range  pixel.  This  mid-range  pixel  Is  used 
as  the  first  functional  data  point.  The  program  searches  In  the  general 
area  of  the  previously  calculated  fully  white  pixel  range.  (The  program 
searches  around  the  area  of  pixel  (2,m)  to  find  a  fully  white  pixel 
range,  where  (l,m)  Is  the  position  of  the  averaged  pixel.)  If  no  fully 
white  pixel  range  Is  found,  the  program  searches  sequentially  from 
(2,1)  to  (2,256)  to  (501,1)  to  (501,256)  until  a  fully  white  range  Is 
found.  Once  a  fully  white  range  Is  found,  the  procedure  continues  until 
the  search  and  averaging  procedures  are  completed.  If  no  fully  white 
pixel  range  Is  found,  the  program  yields  a  zero  trace. 

In  the  fourth  step  of  BONES,  the  program  scales  the  data  taken  In  the 
third  step.  Given  an  x-range  from  0  to  10  and  a  y-range  frcm  -4  to  4, 
the  user  gives  three  graticule  positions  on  the  video  image.  These 


graticule  positions  correspond  to  the  baseline  edges  and  a  perpendicular 
distance  above  the  baseline.  The  user  assigns  a  position  value  for  the 
baseline  and  the  distance  above  It:  x-value  for  the  left  baseline  edge, 
x-value  for  the  right  baseline  edge,  y-value  for  the  baseline  and  y- 
value  for  the  position  above  the  baseline.  Using  these  assigned  values, 
the  BONES  program  converts  the  relative  numbers  obtained  from  the  third 
step  Into  calibrated  numbers.  The  8  level  brightness  (501,256)  array  Is 
converted  Into  a  single  string  of  501  hexadecimal  numbers  ranging  from 
-4  to  4. 

Once  the  BONES  program  converts  the  oscilloscope  Image  to  the  string  of 
numbers,  the  TURTLE  program  converts  the  string  Into  a  functional  Image 
displayed  on  the  host  computer.  The  TURTLE  program  allows  rescaling  of 
the  data  file.  The  TURTLE  programs  also  allows  data  to  be  numerically 
manipulated  (adding,  subtracting,  multiplying  or  dividing  by  a  constant, 
smoothing  the  data  with  5-polnt,  7-polnt  or  fast  Fourier  transforms  and 
numerical  differentiation  and  Integration).  The  program  allows 
functional  manipulation  (adding,  subtracting,  multiplying  or  dividing 
traces  by  each  other).  The  TURTLE  program  outputs  the  data  In 
hexadecimal  or  ASCII  forms  accepted  by  other  computer  programs.  The 
BONES  program  performs  the  actual  digitization;  the  TURTLE  program 
scales  the  data  to  experimental  values. 

4.2.2  Data  File  Format 

All  the  numerical  data  files  have  the  same  format.  The  files  are  in 
ASCII  format  and  have  the  following  structure: 


TITLE--an  alphanumeric  string  of  up  to  132  characters  representing 
the  title  line  of  a  data  file  for  reference.  All  of  the  title 
occurs  on  one  line.  A  portion  of  all  the  character  string  may  not 
be  Input/output. 

N— an  Integer  equalling  the  number  of  data  points.  The  number  must 
be  on  a  separate  line  from  the  title  and  the  numbers  that  follow. 

X-ARRAY--an  array  of  x  (ordinate)  data  points  going  In  order  from 
X(l)  to  X(N).  A  total  of  N  x  data  points  must  be  provided.  Some 
programs  require  one  x  data  point  per  line.  All  programs  require 
the  X  array  to  have  all  N  x  data  points  In  order. 

Y-ARRAY— an  array  of  y  (abscissa)  data  points  going  In  order  from 
Y(l)  to  Y(N).  A  total  of  N  y  data  points  must  be  provided.  Some 
programs  using  this  data  format  require  on  y  data  point  per  line. 
All  programs  require  the  Y  array  to  have  all  N  y  data  points  In 
order. 

COMMENTS--may  follow  the  data  file.  These  comments  are  not  read  by 
the  programs  and  are  lost  In  file  transformation.  Comments 
Identify  and  provide  extra  Information  about  the  file. 

4.3  Computational  Treatment  of  Numerical  Data 


The  method  for  handling  the  numerical  data  Is  discussed  here.  Since  no 
flduclals  were  used  In  the  oscilloscope  data,  an  explanation  of  the 


a 
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method  for  dealing  with  timing  Issues  must  be  provided.  Voltage  and 
time  bases  were  calibrated  In  the  oscilloscopes,  so  voltage  and  time 
scales  are  not  In  question.  Without  a  reference  time,  oscilloscope 
triggering  Is  problematic.  Reference  timing  would  have  been  obtained 
from  a  superposition  of  a  fiducial  signal  and  a  diagnostic  probe 
signals.  From  the  experimental  data.  It  Is  evident  some  oscilloscopes 
tended  to  trigger  Inconsistently.  These  times  could  vary  as  much  as  2.0 
ps,  but  the  time  variation  Is  typically  less  than  0.2  us.  Without 
flduclals.  It  Is  Impossible  to  ensure  signal  times  from  different 
oscilloscopes  (or  even  the  different  signals  from  the  same  dual-trace 
oscilloscope)  are  simultaneous  to  ±0.1  us. 


4.3.1  Manipulating  Data  Traces 


In  all  cases,  the  data  traces  needed  to  be  manipulated.  In  some  cases, 
the  manipulation  Is  used  to  correct  the  data  trace.  In  some  cases, 
calibration  factors  are  used  to  convert  the  voltage  signals  to 
appropriate  units  (be  they  voltage  probe  voltages,  Rogowski  coil 
currents  or  §  probe  magnetic  fields).  Numerical  manipulation  Is 
required  when  traces  were  to  be  added,  subtracted,  multiplied,  divided, 
differentiated  or  Integrated.  A  FORTRAN  computer  program  Is  written  to 
perform  these  data  manipulations.  The  logic  of  the  computer  program  in 
manipulating  data  Is  discussed  here. 


4. 3. 1.1  Data  Manipulation  for  Correction.  In  the  oscilloscope  data. 


there  are  often  high  frequency  signals  Imposed  on  the  diagnostic  signal 
trace.  The  smoothing  method  involves  differentiation  of  the  data  trace, 
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numerical  smoothing  of  the  differential  and  Integration  of  the 
differential.  The  smoothing  methods  used  were  seven-point  smoothing  or 
a  fast  Fourier  transform.  Seven  point  smoothing  yields  a  running 
average  of  the  data.  Fast  Fourier  transforms  filter  out  high  frequency 
data  components.  Smoothing  the  original  trace  degrades  the  signal 
contained  In  the  digitized  data;  smoothing  the  differential  reduces  this 
signal  degradation  and  reduces  the  high  frequency  noise. 

When  there  Is  a  flat  baseline  preceding  the  voltage  trace,  one  or 
several  techniques  are  used  to  obtain  better  data  (data  more  accurately 
representing  actual  results).  One  routine  assumes  the  baseline  can  be 
fitted  by  least  squares  and  the  baseline  is  subtracted  from  the  data 
trace.  Another  routine  allows  a  correction  for  angular  rotation.  A 
third  computer  routine  allows  "RC  droop"  to  be  corrected  (using  the 
method  discussed  In  Section  2). 

In  the  rare  cases  where  digitization  produces  spurious  data  points, 
correction  procedures  are  used.  This  sometimes  Involves  redlgltlzlng  an 
oscilloscope  trace  or  editing  the  data  file  and  removing  the  spurious 
data  points.  If  the  data  is  not  pathological,  these  smoothing  methods 
are  sufficient  to  deal  with  the  problems. 


4. 3. 1.2  Data  Manipulation  for  Calibration.  Corrected  data  traces  were 
multiplied  by  the  calibration  factors  reported  In  Section  2.  Current 
data  taken  with  Rogowskl  colls  and  §  probes  are  multiplied  by  the 
appropriate  calibration  factors.  Since  the  voltage  probes  vary  from 
shot  to  shot,  the  data  is  Individually  averaged  to  assume  an  averaged 
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plateau  value.  This  averaged  plateau  voltage  value  Is  used  to  calculate 


the  individual  voltage  probe  value.  (The  FORTRAN  source  code  for  the 


data  manipulation  program  is  given  as  Appendix  C.) 


4.3. 1.3  Data  Manipulation  for  Multiple  Traces.  When  two  or  more  traces 


are  operated  (addition,  averaging,  subtraction,  multiplication  or 


division),  several  things  must  be  done:  trace  conversion  to  continuous 


functional  relations,  common  start  and  end  points  and  trace  correction. 


Each  data  array  can  be  thought  of  a  discontinuous  function  with  a  finite 


number  of  data  points.  Data  from  another  trace  cannot  operate  on  the 


given  trace  if  the  data  is  inconsistent.  To  deal  with  this,  a  third 


order  spline  fit  is  applied  to  both  traces  to  establish  numerical 


continuity. 


When  data  traces  of  different  endpoints  operate  on  each  other,  the 


largest  beginning  time  (ordinate)  and  the  smallest  ending  time  are  used. 


Outside  the  stated  time,  data  arrays  are  undefined.  Linear  data 


extrapolation  outside  the  defined  time  range  was  considered  and 


discarded  when  the  results  became  unacceptable. 


Finally,  trace  operations  needed  to  allow  for  the  finite  (discontinuous) 


mathematics  of  the  host  computer.  Values  produced  as  a  result  of  trace 


operations  would  not  exceed  ±10JO  (numerical  overflow).  Absolute  values 


for  trace  operations  would  not  become  smaller  than  10”3D  (numerical 


underflow).  Checks  for  these  numerical  problems  and  modification  of 


data  arrays  are  used. 
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4.3. 1.4  Data  Manipulation  for  Common  Timing.  Because  no  timing 
flduclals  were  used,  a  method  of  dealing  with  data  time  variations  Is 
required.  Time  variations  of  tens  of  nanoseconds  may  be  due  to 
digitization.  Errors  In  oscilloscope  triggering  have  been  noted.  The 
following  assumptions  are  used  for  common  time  extrapolation: 

1)  Current  rise  Is  assumed  the  same  for  the  Rogowskl  colls 
(counter-rotating  and  chamber).  This  assumption  a  priori  masks 
any  information  obtained  from  Rogowskl  coil  current  timing. 

2)  Beginning  of  current  Is  assumed  the  same  for  all  S  probes  at 
any  axial  level.  Azimuthal  variation  information  Is  lost. 


3)  A  "zero  time",  that  Is,  a  time  for  measuring  the  signal  rise 
can  be  extrapolated  from  voltage  rise.  This  extrapolated  zero 
time  Is  used  as  an  artificial  fiducial. 


The  extrapolated  zero  time  derives  maximum  signal  trace  Vs.  The  signal 


trace  between  10%  of  V$  and  25%  of  V$  is  linearly  least-squares  fit  to 


extrapolate  zero  time  t  (where  the  linear  least  squares  signal  value  Is 

0 

0.0).  The  limits  of  10%  and  25%  are  chosen  because  all  the  data  traces 
have  a  signal  rise  between  these  limits.  Having  the  same  percentage 
limits  for  each  data  trace  (regardless  of  magnitude),  extrapolation  to 
t  is  computationally  made.  The  few  special  cases  where  the  10%/25% 

o 

limits  did  not  apply  required  individualized  attention. 
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Having  obtained  the  extrapolated  zero  time  value  t^  for  each  signal 
trace,  the  zero  times  value  are  averaged.  The  resultant  averaged  zero 
time  became  the  artificial  fiducial  time.  Every  signal  trace  In  a  set 
Is  referenced  to  this  artificial  fiducial.  Each  resultant  data  trace 
begins  at  the  same  reference  time,  the  averaged  extrapolated  zero  time. 


4.3. 1.5  Data  Manipulation  for  Derived  Data.  Data  files  are  manipulated 


to  derive  data.  In  all  data  calculations,  the  fundamental  data  traces 
are  voltage  V(t)  and  current  I(t).  The  voltage  trace  Is  the  voltage 
average  from  both  voltage  probes.  The  current  trace  Is  the  smaller  of 
the  counter-rotating  or  chamber  Rogowskl  coll  traces. 


The  Integrated  current  trace  IC(t)  Is  derived  by  time  Integrating  the 
current  I(t). 


IC(t)  =  J  I(t)  dt 


The  Integrated  voltage  IV(t)  Is  obtained  by  time  Integrating  the 
averaged  voltage  V(t). 


IV(t)  =  |  V(t)  dt 


The  Impedance  Z(t)  Is  given  by 


IV(t) 

IC(t) 


Integrated  values  are  used  because  Integrated  data  is  smoother  than  the 
digitized  data.  Unless  the  Integrated  current  IC(t)  contains  a 
functional  pole  or  the  integrated  voltage  IV(t)  a  functional  zero,  Z(t) 
should  have  enough  accuracy  for  this  analysis.  Since  the  voltage  V(t) 
is  voltage  at  the  voltage  probe  positions,  the  Impedance  Is  the  system 
Impedance  at  the  voltage  probe,  not  the  plasma  sheath  Impedance. 

The  power  P(t)  at  the  voltage  probes  Is 

P(t)  *  I(t)  *  V(t) 

The  energy  E(t)  at  the  voltage  probes  Is 

E(t)  =  J  P(t)  dt 

The  Impedance  L(t)  at  the  voltage  probe  Is 

L(t)  *  *  J  [V(t)  -  R  *  I(t)]  dt 
I(t)  J 

The  sheath  resistance  R  is  constant.  An  Integral  method  for  calculating 
Inductance  Is  chosen  (as  opposed  to  calculating  time  differentials) 
since  the  integral  is  numerically  smoother. 


4.4  EXPERIMENTAL  SUMMARY 


An  summary  of  each  shot  In  this  experimental  series  Is  provided  In 
Appendix  D.  This  summary  details  the  major  characteristics  found  on 
each  shot. 


Some  definitions  are  In  order.  A  clearing  shot  Is  the  first  shot  of  the 
day.  The  clearing  shot  prepares  the  electrodes  for  subsequent  shots.  A 
clearing  shot  evolves  adsorbed  gases  from  gun  surfaces.  (In  our  system, 
deuterium  gas  was  used.)  A  prefire  shot  Is  a  shot  where  the  capacitor 
bank  or  a  gas  valve  discharged  prior  to  the  trigger.  A  short  shot  Is  a 
shot  where  the  PUFF  system  current  (and  energy)  Is  decoupled  from  the 
plasma  gun.  When  a  short  shot  occurs,  current  In  the  plasma  gun  Is  not 
driven  by  transmission  line  current.  A  prefire  shot  Is  a  short  shot, 
but  a  short  shot  Is  not  necessarily  a  prefire. 

In  the  summary,  all  currents  are  accurate  to  ±25%  and  reported  times  are 
accurate  to  ±0.1  ps.  The  neutron  Information  Is  accurate  to  ±15%. 

Some  observations  can  be  made  based  on  the  experimental  data  summary. 

The  peak  coaxial  plasma  gun  currents  are  about  1.6  MA  or  less,  the  slug 
model  maximum  current.  Rogowski  coll  calibration  errors  are  ±25%;  this 
accounts  for  some  of  the  variation  In  the  experimental  results.  Where 
the  current  variation  Is  larger  (e.g.,  shots  J0702,  J0903,  J1001  and 
J1103),  transmission  line  current  is  also  significantly  higher, 
indicating  a  larger  charging  voltage.  When  the  gun  current  peaks  are 


1.6  MA  or  less,  current  peaks  occur  at  about  1.1  ps  Indicating  good 
agreement  between  the  slug  model  and  the  experimental  data. 

When  a  short  occurs,  total  current  Is  3  to  4  MA.  This  Indicates  a  lower 
system  inductance  implying  no  current  transfer  to  the  plasma  gun.  When 
the  peak  transmission  line  current  occurs  much  later  (2  to  3  ys)  than 
the  plasma  gun  current  peaks,  the  results  indicate  gun  current  isolation 
from  the  driving  current. 

Neutron  output  increases  an  order  of  magnitude  when  both  gas  valves  are 
used.  Since  there  is  limited  plasma  gun  optimization,  the  insertion  of 
cold  D2  gas  into  the  pinched  deuterium  plasma  shows  potential  for 
increasing  the  neutron  yield  of  the  plasma  focus. 

Coaxial  plasma  gun  operation  using  §  probes  became  more  consistent  as  a 
function  of  time.  This  Is  due.  In  part,  to  Increased  capability  of  the 
experimental  personnel  and  to  plasma  gun  conditioning  from  consistent 
and  repeated  use. 

In  most  of  the  coaxial  plasma  experiments,  the  behavior  is  predominantly 

transition  mode.  Following  Len  [3],  this  behavior  begins  with  a 

snowplow  mode  characterized  by  a  sharp  (delta  function-like)  peak  as 

Az 

a  function  of  time.  This  Is  discussed  In  detail  In  analyzing  three 
shots  from  the  experimental  series. 
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4.5  ANALYSIS  OF  SELECTED  SHOTS 


In  this  section,  refined  data  from  three  shots  Is  analyzed.  These  are 
D3004,  J1006  and  J1104.  These  shots  are  chosen  because  they  exhibit 
good  current  separation  at  each  axial  plasma  gun  position.  (The  timing 
problems  are  as  small  as  possible  for  these  shots.)  Other  shots  might 
have  been  chosen  for  analysis,  but  these  shots  best  typify  the 
characteristics  applicable  to  the  type  of  analysis  developed  In  this 
dissertation.  The  three  selected  shots  span  the  range  of  shots  taken 
during  the  experimental  series.  There  are  snowplow  characteristics 
shown  In  shots  D3004  and  J1006.  Shot  J1104  used  both  the  upper  and 
lower  gas  valves  to  deliver  gas  to  the  plasma  gun;  shots  D3004  and  J1006 
did  not.  Shot  J1006  shows  a  crowbarring  of  the  driving  current. 

Both  Internal  (S  probe)  and  external  driving  circuit  data  are  displayed 
In  this  particular  shot  analysis.  Comparison  Is  made  with  the  slug 
model  results.  Any  anomalous  behavior  Is  discussed. 

4.5.1  Shot  D3004 

In  shot  D3004,  charge  voltage  Is  60  kV.  The  stored  electrical  energy  In 

5 

the  capacitor  bank  Is  1.30x10  Joules.  The  peak  current  In  the 
transmission  line  is  1.56  MA  at  3.6  us  after  current  begins.  Peak 
plasma  gun  current  Is  1.24  MA  at  1.3  us  after  current  begins.  The  shot 
produced  736  counts  In  the  Ag  detector  in  the  first  minute;  this  Is 
9.2*106  neutrons  produced  by  the  plasma  pinch.  One  gas  valve,  the  lower 
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valve,  is  used  in  this  shot.  The  gas  valve  is  energized  1075  us  before 
bank  discharge.  There  are  14  active  §  probes  In  this  shot. 

Figure  31  shows  a  display  of  the  current  overlay  of  shot  D3004.  In  this 
Figure,  the  driving  current  03004IR  Is  shown  to  exceed  the  plasma 
current  D3004IC.  At  about  3  us,  the  driving  current  decoupling  from  the 
gun  current  Is  essentially  complete.  At  this  time,  the  driving  current 
Is  seen  to  oscillate  with  a  frequency  not  characteristic  of  the  PUFF 
system  with  the  coaxial  plasma  gun  In  the  circuit. 

In  Figure  31,  current  transport  along  the  gun  length  Is  displayed.  The 
current  Is  transported  from  the  bottom  to  the  mid-bottom  to  the  mid- top 
to  the  top  levels.  The  current  degrades  along  the  length  of  the  gun, 
probably  due  to  the  loss  of  particles  to  charged-neutral  Interactions. 

Although  plasma  gun  timing  Is  a  problem,  plasma  sheath  velocity  can  be 
estimated.  If  a  current  of  0.5  MA  Is  a  tracer  reference,  the  axial 
average  of  the  §  probes  reaches  the  reference  at  the  following  times: 


Bottom  level  average  1.867  us 

Bottom  level  correlated  average  1.862  us 

Mid-bottom  level  average  2.213  us 

Mid-bottom  level  correlated  average  2.209  us 

Mid-top  level  average  2.406  us 

Mid-top  level  correlated  average  2.411  us 


Top  level  average 

Top  level  correlated  average 


2.573  us 

2.574  us 


Uncorrelated  averages  take  trace  data  as  digitized  and  corrected,  but 
with  no  timing  corrections.  The  correlated  average  takes  data  to  be 
both  digitized  and  corrected  and,  additionally,  corrects  the  timing  to 
an  artificial  zero,  l.e.,  a  place  where  a  zero  Is  extrapolated. 
Differences  between  uncorrelated  and  correlated  timings  give  an 
Indication  of  the  timing  variation  for  a  particular  shot. 

Knowing  the  distance  between  each  axial  position  (level)  Is  4"  (0.1016 
m),  the  plasma  sheath  velocity  Is  calculated. 

•  5 

Velocity  between  the  bottom  and  mid-bottom  levels  2.9*10  m/s 

5 

Velocity  between  the  mid-bottom  and  mid-top  levels  5.1*10  m/s 

5 

Velocity  between  the  mid-top  and  top  levels  6.2*10  m/s 

The  velocity  profile  Is  similar  to  the  slug  model  velocity  profile;  It 
Increases  as  a  function  of  time.  The  magnitude  of  the  velocities 
Indicates  the  Alfven  critical  velocity  Is  not  an  accurate  model  for  the 
sheath.  It  predicts  a  velocity  a  factor  of  10  smaller  than  the 
calculated  velocities  given  here.  The  Rosenbluth  sheath  velocity  Is  of 
the  right  order  of  magnitude  for  the  early  velocity,  but  Is  too  small 
for  the  later  velocities.  The  single  particle  drift  velocity  (Invoking 
E  *  B  forces)  Is  of  the  right  order  of  magnitude.  The  limited  sheath 


velocity  reported  by  Flshblne  Is  too  small.  Of  the  four  models,  the 
most  accurate  modeling  occurs  to  be  the  single  particle  drift  velocity. 

The  azimuthal  variation  of  the  sheath  as  It  transits  the  coaxial  plasma 
gun  can  be  seen  In  Figures  32  to  35. 

At  the  bottom  level.  In  Figure  32,  the  traces  are  simultaneous  to  ±0.1 
us.  The  amplitude  of  each  trace  agrees  well  (from  0.9  to  1.1  MA), 
easily  within  the  calibration  accuracy  of  the  Individual  §  probes. 
Current  structures  on  different  probes  seem  to  be  consistent  on  all 
probes  at  this  level. 

At  the  mid-bottom  level.  In  Figure  33,  the  plasma  sheath  behavior  Is  not 
as  consistent.  The  plasma  sheaths  rise  at  approximately  the  same  time, 
but  there  Is  a  lack  of  simultaneity  In  the  plasma  sheath  motion  as  It 
passes  the  8  probes  on  this  level.  The  variations  of  the  current 
amplitude  vary  more  than  at  the  bottom  level;  however  the  variation  is 
easily  within  the  calibration  accuracy  of  the  §  probes.  At  this  level, 
there  are  more  characteristic  current  features  ("peaks"  and  "valleys" 
superimposed  on  the  amplitude  trace).  This  could  Indicate  azimuthal 
spoking  formation  at  this  axial  position. 

In  Figure  34,  the  mid-top  current  Is  displayed.  The  timing  Is  only 
simultaneous  to  ±0.1  ps.  Currents  are  flat  (not  tipped  or  canted) 
within  the  accuracy  of  the  §  probes.  Characteristic  current  features 
are  seen  on  all  traces  at  the  same  approximate  time. 


In  Figure  35,  the  top  current  is  displayed.  As  at  the  mid-top  level, 
the  timing  accuracy  is  accurate  to  ±0.1  ps.  The  amplitude  at  the  top 
level  is  flat  within  the  accuracy  of  the  8  probes.  There  are  more 
individual  characteristic  features  on  the  top  level  than  on  the  mid-top 
level . 

In  Figure  36,  the  gun  current,  03004IC,  Is  displayed  with  the  calculated 
slug  current.  The  gun  current  does  not  reach  the  calculated  plasma 
sheath  slug  current.  This  is  hardly  surprising,  since  the  driving 
current  Is  decoupled  from  the  plasma  gun. 

In  Figure  37,  the  experimental  probe  voltage  Is  displayed  with  the 
calculated  voltage.  The  agreement  is  very  good.  As  noted  before,  the 
probe  voltage  Is  the  voltage  at  the  transmission  line  prior  to  the 
coaxial  plasma  gun.  The  probe  voltage  does  not  measure  the  plasma 
voltage. 

In  Figure  38,  the  positional  current  derivative  Is  displayed.  There 

Az 

is  a  sharp  snowplow  component  In  the  plasma  gun  at  about  2.0  ps  between 
the  bottom  and  mid-bottom  level,  at  about  2.3  ps  between  the  mid-bottom 
and  mid-top  level  and  at  about  2.5  ps  between  the  mid-top  and  top  level. 
After  that  time,  the  plasma  sheath  appears  to  operate  In  a  deflagration 
mode.  It  appears  this  shot  Is  operating  In  the  transition  mode 
identified  by  Len. 
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In  Figure  39,  the  electrical  power  delivered  past  the  voltage  probe 
positions  is  displayed.  Both  the  uncorrelated  and  correlated  (where 
time  shifting  of  the  current  and  the  voltage  traces  occur)  power  traces 
are  displayed.  Peak  electrical  power  is  about  55  GW  at  2.2  us. 


In  Figure  40,  the  time  Integral  of  electrical  power  is  displayed.  The 
total  energy  of  the  capacitor  bank  Is  130  kj;  the  total  energy  to  the 
plasma  gun  (at  the  voltage  probe  position)  Is  less  than  120  kJ.  This 
Indicates  a  decoupling  between  the  driving  current  and  the  gun  current. 

In  Figure  41,  the  calculated  inductances  as  seen  by  the  voltage  probe 
position  are  displayed.  Overlaid  on  these  inductance  traces  are  those 
predicted  by  the  slug  model.  The  agreement  Is  very  good  except  for 
early  time.  Here,  numerical  problem  prevent  obtaining  a  physical 
result  from  the  voltage  and  current  traces.  The  uncorrelated  and  the 
correlated  Inductance  traces  only  differ  In  timing,  the  magnitude  Is  the 
same.  The  Inductance  drops  drastically  at  about  4.75  us.  This 
unphysical  result  Is  due  to  the  coding,  set  to  artificially  limit  the 
magnitude  of  the  Inductances. 


Examining  the  current  rise  at  each  different  axial  level,  an  estimate 
for  current  sheath  thickness  can  be  made.  After  calculating  the  maximum 
current,  reference  limits  are  chosen.  These  limits  are  some  fraction  of 
the  maximum  current.  Finding  times  corresponding  to  the  current  limits, 
an  Incremental  time  Is  found.  This  Incremental  time  Is  multiplied  by  a 
normalization  factor  (to  represent  the  total  current  rise).  The 
normalized  Incremental  time  for  shot  D3004  is  given: 
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Bottom  level  normalized  time  Increment 


(4.09±0.80)xl0'/  s 


Mid-bottom  level  normalized  time  Increment  (5.07±0.72)*10~'  s 


Mid-top  level  normalized  time  Increment 


Top  level  normalized  time  Increment 


(6.22±1.44)*10_/  s 


(7.26±i.02)*10_/  s 


Errors  on  the  normalized  time  Increments  result  from  using  different 
fractional  current  limits  and  averaging  different  results. 


With  the  normalized  time  Increments  and  plasma  sheath  velocity,  the 

plasma  sheath  thickness  can  be  calculated.  The  time  averaged  sheath 
5 

velocity  Is  2.81*10  m/s.  Position  dependent  plasma  sheath  velocities 
are  obtained  from  the  data  displayed  In  Figures  25  and  26.  The 
calculated  slug  bottom  current  (current  at  the  bottom  axial  level)  Is 

c  5 

3.39*10  m/s;  calculated  slug  mid-bottom  current  Is  5.24*10  m/s; 

5 

calculated  slug  mid-top  current  Is  6.52*10  m/s;  and  calculated  slug  top 

c 

current  is  7.49*10  m/s.  This  produces  the  data  shown  in  Table  11. 
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In  analyzing  the  data  In  Table  11,  the  measured  plasma  sheath  is  thick, 
characteristic  of  a  deflagration  mode  in  the  plasma  gun.  Using  the  time 
averaged  velocity,  the  sheath  thickness  ranges  from  about  0.10  m  at  the 
bottom  level  to  about  0.20  m  at  the  top  level.  This  is  Indicative  of  a 
sheath  expansion  as  a  function  of  position.  US'!  >g  the  position 
dependent  calculated  slug  velocities,  the  sheath  thickness  goes  from 
about  0.14  m  at  the  bottom  level  to  0.54  m  at  the  top  level.  However, 
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since  the  effective  length  of  the  plasma  gun  Is  about  0.46  m,  sheath 
thicknesses  longer  than  this  are  suspect.  The  position  dependent 
velocities  also  Indicate  a  sheath  expansion  as  It  travels  the  plasma 
gun.  This  sheath  expansion  Is  consistent  with  the  possibility  of  plasma 
components  with  different  velocities  In  the  sheath. 


Table  11.  D3004  Calculated  Plasma  Sheath  Thickness 


Level 

Time  Averaged  Plasma 
Thickness  (m) 

Axial  Level  Plasma 

Thickness  (m) 

Bottom 

(1.15±0.22)»10-1 

(1.39±0.27)*1 O'1 

Mid-bottom 

(1.42±0.20)xl0_1 

(2.66±0.38)*10_1 

Mid-top 

(1.75±0.41)xl0_1 

(4.06±0.94)*10-1 

Top 

(2.04±0.29)xl0_1 

(5.44±0.76)*10_1 

In  summary,  shot  D3004  shows  both  snowplow  and  deflagration  effects.  It 
operates  In  what  Len  calls  the  transition  region.  The  gross  behavior  of 
the  plasma  gun  Is  modelled  well  by  the  0-D  slug  model  theory.  The 
plasma  sheath  velocity  scales  as  the  simple  E  *  B  theory.  The  plasma 
sheath  current  Is  reduced  as  It  transits  the  length  of  the  coaxial 


174 


plasma  gun.  This  reduction  Is  probably  due  to  charged-neutral  particle 
Interactions.  The  plasma  sheath  Is  thick  Indicating  deflagration 
behavior. 

4.5.2  Shot  J1006 

In  shot  J1006,  the  charge  voltage  Is  60  kV.  The  stored  electrical 

5 

energy  In  the  capacitor  bank  Is  1.30*10  Joules.  The  peak  current  in 
the  transmission  line  Is  2.96  MA  at  2.5  us  after  current  begins.  Peak 
plasma  gun  current  Is  1.53  MA  at  1.6  us  after  current  begins.  The  shot 
produces  351  counts  in  the  first  minute  In  the  Ag  detector;  this  Is  a 
total  of  4.4*10®  neutrons  produced  by  the  plasma  pinch.  One  gas  valve, 
the  lower  valve.  Is  used.  The  gas  valve  Is  energized  1125  us  before  the 
bank  discharge.  There  are  14  active  5  probes. 

Shot  J1006  Is  somewhat  anomalous  In  that  It  exhibits  more  snowplow 
behavior  than  other  shots  in  the  series.  The  driving  current  J1006IR 
separates  early  from  the  coaxial  plasma  gun  system  at  about  1.0  us  after 
current  begins.  The  O2  gas  regulator  malfunctioned  for  this  shot, 
giving  a  D2  gas  pressure  of  925  psi  (Instead  of  900  psl).  Delivered 
mass  to  the  system  Is  Increased  to  33.8  mg  (from  32.9  mg). 

The  J1006  current  overlay  Is  shown  in  Figure  42.  The  driving  current 
greatly  exceeds  the  gun  current.  After  the  transmission  line  current  is 
decoupled  from  the  plasma  gun.  It  oscillates  at  a  different  frequency 
from  the  system  with  the  coaxial  plasma  gun.  The  timing  difference  for 
start  of  current  J1006IR  and  gun  current  J1006IC  does  not  mean  the 


plasma  gun  current  Is  generated  ex  nlhllo.  but  the  driving  current 
oscilloscope  trigger  is  off  0.4  ps  on  this  shot.  This  triggering 
problem  characterizes  the  problems  we  faced  without  a  reliable  timing 
fiducial.  This  timing  problem  Is  extreme.  Typical  timing  errors  are 
smaller  (on  the  order  of  0.1  ps). 

Due  to  triggering  problems,  timing  Is  a  real  concern.  Plasma  sheath 
velocity  estimates  can  still  be  made,  however.  Using  a  0.4  MA  current 
as  a  reference,  the  §  probes  axial  currents  equal  the  current  reference 
at  the  given  times: 


Bottom  level  average 

2.003  ps 

Bottom  level  correlated  average 

2.004  ps 

Mid-bottom  level  average 

2.268  ps 

Mid-bottom  level  correlated  average 

2.273  ps 

Mid-top  level  average 

2.496  ps 

Mid-top  level  correlated  average 

2.495  ps 

Top  level  average 

2.600  ps 

Top  level  correlated  average 

2.613  ps 

Differences  between  the  uncorrelated  and  the  correlated  times  estimate 
timing  errors  at  each  level. 
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Using  the  difference  between  each  level  of  4"  (0.1016  m),  the  plasma 
sheath  velocity  is  estimated. 

5 

Velocity  between  the  bottom  and  mid-bottom  levels  3.8><10  m/s 

5 

Velocity  between  the  mid-bottom  and  mid-top  levels  4.5x10  m/s 

' 

i 
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5 

Velocity  between  the  mid-top  and  top  levels  9.2x10  m/s 

i 

t 

i 

!  As  with  shot  SD3004,  the  velocity  profile  Is  similar  to  the  0-D  slug 

j  model.  Of  the  four  sheath  velocity  models  presented,  only  the  single 

)  particle  model  yields  velocities  of  the  right  order  of  magnitude. 

» 

Azimuthal  variation  of  the  plasma  sheath  at  different  axial  levels  is 
I  seen  In  Figures  43  to  46. 

In  Figure  43,  at  the  bottom  level,  the  traces  are  simultaneous  within 

j  ±0.1  jis.  There  seems  to  be  some  sheath  tilting  so  current  is  not  flat 

1  as  a  function  of  azimuth.  The  variations  could  be  due  to  calibration 

f  errors,  but  the  consistency  suggests  an  azimuthal  sheath  tilting.  This 

'  tilting  of  the  plasma  sheath  Is  the  variation  of  the  arrival  time  as  a 

> 

function  of  the  azimuthal  position.  Since  different  §  probes  at  each 

; 

,  level  are  at  different  azimuths,  tilting  can  be  distinguished  If  it  is 

;  larger  than  0.25"  (6.3*10~3  m,  the  diameter  of  the  §  probes). 

i 
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In  Figure  44,  the  mid-bottom  current  Is  shown.  There  Is  a  strong  plasma 
sheath  azimuthal  variation.  Total  current  errors  are  larger  than  the 
calibration  errors.  Lack  of  plasma  sheath  arrival  simultaneity 
Indicates  timing  variations  larger  than  ±0.1  ys.  At  the  mid-bottom 
level,  the  plasma  sheath  Is  tilted  and  Indicates  some  spoking. 

In  Figure  45,  the  mid-top  current  Is  displayed.  Since  only  two  6  probes 
are  used,  any  Information  about  timing  or  current  behavior  Is  limited. 

In  Figure  46,  the  tcp  current  Is  displayed.  Plasma  sheath  tilting 
appears  to  have  been  continued  from  the  mid-bottom  level.  Timing 
variations  are  greater  than  ±0.1  ys.  Current  distribution  Is  spread 
over  a  range  greater  than  what  the  calibration  errors  alone  can  account. 

In  Figure  47,  gun  current  J1006IC  Is  displayed  with  the  calculated  slug 
current.  The  gun  current  does  not  match  the  calculated  plasma  sheath 
current  from  the  slug  model,  but  the  current  rise  does  match  the  slug 
current  reasonably  well.  The  loss  of  the  current  driver  explains  the 
loss  of  the  gun  current,  so  it  would  not  be  expected  to  match  the  slug 
model  current.  The  experimental  current  peaks  at  the  same  relative  time 
of  the  slug  model,  about  1.1  ys  after  the  current  begins. 


In  Figure  48,  the  experimental  voltage  Is  displayed  with  the  calculated 
probe  voltage.  The  agreement  Is  very  good.  As  noted  before,  the  probe 
measures  only  the  voltage  at  the  voltage  monitor  prior  to  the  coaxial 
plasma  gun. 
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In  Figure  49,  the  positional  current  derivative  Is  displayed.  There 

Az 

Is  a  strong  snowplow  component  at  about  2.2  us  between  the  bottom  and 
mid-bottom  level,  at  about  2.4  us  between  the  mid-bottom  and  mid-top 
level  and  about  2.6  us  between  the  mid-top  and  top  level.  The  behavior 
of  the  plasma  sheath  from  the  bottom  level  to  the  mid-top  level  appears 
to  be  snowplow-dominated.  From  the  mid-top  level  onward,  the 
deflagration  mode  appears  to  become  more  dominant.  Tnls  shot,  too, 
appears  to  operate  In  the  transition  mode. 

In  Figure  50,  the  electrical  power  delivered  past  the  voltage  probe 
positions  Is  displayed.  Timing  differences  can  be  seen  In  this  Figure. 
The  peak  electrical  power  flowing  past  the  voltage  probe  position  is 
about  55  GW  occurring  at  about  2.0  us. 

In  Figure  51,  the  time  Integral  of  electrical  power  Is  displayed.  Peak 
energy  flowing  past  the  voltage  probe  position  Is  about  70  to  80  kJ. 
Since  the  system  current  decoupled  from  the  plasma  gun  early,  the  energy 
loss  Is  not  unexpected. 

In  Figure  52,  calculated  Inductances  (seen  at  the  voltage  probe 
position)  are  displayed.  Overlaid  on  these  Inductance  traces  are  slug 
model  Inductance  predictions.  Agreement  between  the  predicted  and 
experimental  Inductances  Is  good.  The  difference  between  uncorrelated 
and  correlated  Inductances  is  only  In  timing,  not  In  magnitude. 


J1004  plasma  sheath  velocities  are  estimated  In  the  same  way  as 
previously.  Using  the  plasma  sheath  velocities  cited  In  Section  4.5.1, 
the  data  In  Table  12  Is  prepared. 


Examining  the  Table  12  data.  It  can  be  seen  the  plasma  sheath  Is  thick. 
If  the  time  averaged  sheath  velocity  Is  used,  the  plasma  sheath  varies 
from  about  0.12  m  at  the  bottom  level  to  0.18  m  at  the  top.  This 
Indicates  plasma  sheath  expansion  (but  not  as  much  as  In  shot  D3004). 

If  the  position  dependent  sheath  velocities  are  used,  estimates  for 
sheath  velocities  range  from  0.15  m  at  the  bottom  to  0.49  m  at  the  top 
level.  Any  sheath  thickness  longer  than  the  length  of  the  plasma  gun 
(0.46  m)  Is  probably  spurious.  Again,  this  sheath  expansion  Is 
consistent  with  the  possibility  of  multivelocity  sheath  components. 


Table  12.  J1004  Calculated  Plasma  Sheath  Thickness 


Level 


Time  Averaged  Plasma  Axial  Level  Plasma 

Thickness  (m)  Thickness  (m) 


Bottom 

(1.21±0.25)xl0'1 

(1.46±0.30)*10 

Mid-bottom 

(1.51±0.30)*10-1 

(2.83±0.55)*10 

Mid-bottom 


WWW 


WJWWU 


In  summary,  shot  J1006  shows  both  snowplow  and  deflagration  behavior. 

It,  like  shot  03004,  appears  to  operate  In  the  transition  mode.  The 
gross  plasma  behavior  In  the  coaxial  system  Is  relatively  well  described 
by  the  0-0  slug  model.  The  single  particle  E  >  I  theory  appears  to  best 
predict  the  sheath  velocity;  It  Is  an  order  of  magnitude  better  In 
predicting  the  sheath  velocity  than  the  other  three  reviewed  theories. 
Estimates  of  the  plasma  sheath  thickness  show  It  Is  not  thin,  but  It  Is 
on  the  order  of  0.10  m  thick. 

4.5.3  Shot  J1104 

In  shot  J1104,  the  charge  voltage  Is  60  kV.  The  stored  electrical 

c 

energy  In  the  capacitor  bank  Is  1.30*10  Joules.  The  peak  current  In 

the  transmission  line  Is  1.77  MA  at  1.4  ps  after  current  begins  to  rise. 

The  peak  plasma  current  Is  1.70  MA  at  1.5  us  after  current  rise.  The 

shot  produced  2094  Ag  silver  detector  counts  In  the  first  minute;  this 

o 

corresponds  to  a  total  of  1.1*10  neutrons.  Two  gas  valves  are  used  In 
this  shot.  The  lower  gas  valve  Is  energized  1150  us  before  the  PUFF 
capacitor  bank  fires.  The  upper  gas  valve  Is  energized  3750  us  before 
the  capacitor  bank  fires.  There  are  14  active  §  probes. 

Figure  53  shows  the  J1104  current  overlay.  The  driving  current  J1104IR 
and  the  plasma  gun  current  J1104IC  track  well,  except  for  the  error  In 
timing  caused  by  triggering  problems.  Of  the  shots  chosen  for  detailed 
analysis,  this  shot  shows  the  best  current  transfer  from  the  capacitor 
bank  to  the  plasma  gun. 
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Using  a  reference  current  of  0.4  MA,  the  times  for  the  plasma  sheath  to 
reach  the  reference  are  given. 


Bottom  level  average 

Bottom  level  correlated  average 

Mid-bottom  level  average 
Mid-bottom  level  correlated  average 

Mid- top  level  average 
Mid-top  level  correlated  average 

Top  level  average 

Top  level  correlated  average 

Using  the  axial  distance  between  each  position  of  4"  (0 
velocity  of  the  plasma  sheath  Is  estimated. 

Velocity  between  the  bottom  and  mid-bottom  levels 

Velocity  between  the  mid-bottom  and  mid-top  levels 


Velocity  between  the  mid-top  and  top  levels 


2.309  us 
2.308  us 

2.666  us 
2.662  us 

2.821  us 
2.821  us 

2.940  us 
2.938  us 

1016  m),  the 

2.9*105  m/s 
6.5*105  m/s 
8.6*10^  m/s 


The  velocity  profile  Is  similar  to  the  profile  predicted  by  the  slug 
model.  Only  the  single  particle  drift  theory  predicts  a  sheath  velocity 
of  the  right  order  of  magnitude. 


The  azimuthal  current  variation  Is  seen  In  Figures  54  to  57.  These 
figures  show  the  variation  as  a  function  of  axial  position. 

The  bottom  currents  are  seen  In  Figure  54.  The  timing  variation  varies 
over  a  range  of  ±0.1  us.  After  the  plasma  sheath  crosses  the  bottom 
level  of  the  S  probes,  the  four  azimuthal  probes  track  well. 

The  mid-bottom  currents  are  displayed  In  Figure  55.  Except  for  S  probe 
M  (trace  J1104BM)  which  shows  an  uncharacteristic  signal  superimposed, 
timing  agreement  Is  within  0.1  ps.  Current  variations  are  greater  than 
the  calibration  errors.  It  Is  possible  the  sheath  Is  somewhat  tilted  at 
this  level.  Late  In  the  experimental  series,  the  §  probe  M  showed  a 
voltage  proportional  to  the  driving  current. 

The  mid-top  currents  are  shown  In  Figure  56.  With  only  two  6  probes, 
extracted  Information  Is  limited. 

The  top  currents  are  shown  In  Figure  57.  The  timing  for  the  plasma 
sheath  arrival  Is  simultaneous  within  0.1  ps.  The  different  probes 
Indicate  a  canted  or  tilted  plasma  sheath.  A  current  depression  occurs 
at  about  4.5  ps. 

The  gun  current  J1104IC  Is  shown  In  Figure  58.  Calculated  current 
tracks  well  with  experimental  current.  The  experimental  current  peaks 
some  0.2  ps  later  than  slug  model  predictions.  This  could  be  caused  by 
a  sheath  of  finite  thickness.  Gun  current  Is  depressed  at  about  2.8  ps. 
This  Is  due  to  the  Inductive  rise  of  the  plasma  pinch  at  the  gun  muzzle. 
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Increased  plasma  gun  current  Is  due  to  a  decreased  transmission  line 
Inductance.  This  Inductance  Is  proportional  to  the  distance  between  the 
plates.  A  slight  change  In  the  transmission  line  Inductance  can  explain 
why  the  experimental  and  predicted  voltage  are  not  In  better  agreement. 


Shot  J1104  probe  voltages  (both  experimental  and  calculated)  are  shown 
In  Figure  59.  It  has  been  noted  the  voltage  probes  are  not  absolutely 
calibrated.  Current  calibrations  are  relatively  reliable.  More  than 
1.3*10^  Joules  (the  energy  stored  In  the  capacitor  bank)  are  calculated. 
The  voltage  Is  recalibrated  so  no  more  than  130  kJ  reaches  the  voltage 
monitor  position.  This  may  also  be  a  cause  for  the  voltage  discrepancy. 
The  agreement  of  the  voltage  shapes  Is  good  (If  high  frequency 
components  on  the  experimental  voltage  are  Ignored).  The  probe  voltage 
shows  a  depression  at  about  3  us.  This  could  be  the  effect  of  the 
plasma  focus  at  the  gun  muzzle  communicated  to  voltage  probe  position. 
The  voltage  must  be  communicated  through  tens  of  nanohenries  from  the 
gun  muzzle  to  the  position  of  the  voltage  probes. 


In  Figure  60,  the  positional  derivative  _  Is  displayed.  A  sharp 

&z 

snowplow  behavior  Is  only  shown  for  the  bottom  to  mid-bottom  region 
peaking  at  a  time  of  2.3  us.  A  weak  snowplow  Is  seen  between  the  mid¬ 
bottom  and  mid-top  region  at  2.6  us,  but  It  shows  behavior  more 
characteristic  of  the  deflagration  mode.  The  region  from  the  mid-top  to 
top  region  shows  deflagration  characteristics. 


TIME  (IN  SECONOS) 


In  Figure  61,  electrical  power  Is  displayed.  The  uncorrelated  and 
correlated  powers  are  In  good  agreement,  both  In  timing  and  In 
magnitude.  They  both  show  a  peak  power  of  about  70  GW  at  2.1  us.  They 
also  show  a  depression  of  the  power  at  approximately  3  us.  The 
electrical  power  In  Figure  61  represents  the  adjusted  probe  voltage. 

In  Figure  62,  the  electrical  energy  delivered  past  the  voltage  monitor 
position  Is  shown.  The  peak  energy  has  been  adjusted  to  equal  the 
capacitor  bank  energy. 

In  Figure  63,  the  calculated  Inductances  are  shown.  Except  for  the 
early  behavior  (before  1.8  us)  where  the  calculated  Inductance  shows  the 
effects  of  finite  computer  calculations,  the  slug  model  describes  the 
Inductance  well  until  about  2.6  us.  At' this  time,  the  calculated 
Inductance  Is  reduced.  This  variation  Is  undoubtedly  due  to  the  effects 
of  the  extra  gas  loading.  This  represents  a  stagnation  of  the  plasma 
sheath  caused  by  the  neutral  gas  released  from  the  upper  valve. 

Calculating  the  adjusted  plasma  sheath  current  rise  time  and  using  the 
time  averaged  sheath  and  the  position  dependent  velocities  discussed  In 
Section  4.5.1,  Table  13  Is  generated. 

Examining  the  Table  13  data,  the  plasma  sheath  Is  thick.  Using  the  time 
averaged  velocity,  the  plasma  sheath  varies  from  about  0.11  m  at  the 
bottom  level  to  0.15  m  at  the  top.  This  does  not  Indicate  plasma  sheath 
expansion.  If  position  dependent  sheath  velocities  are  used,  sheath 
velocities  range  from  0.13  m  at  the  bottom  to  0.41  m  at  the  top  level. 


Table  13.  J11Q4  Calculated  Plasma  Sheath  Thickness 


Time  Averaged  Plasma 
Thickness  (m) 


Axial  Level  Plasma 
Thickness  (m) 


Bottom 

(1.10±0.24)»10  1 

(1.33±0.29)*10 

Mid-bottom 

(1.41±0.23)»10-1 

(2.62±0.43)*10 

Mid-top 

(l^StO^SMO*1 

(2.91±0.59)*10 

Top 

(1.53±0.22)x10-1 

(4.09±0.58)*10 

For  the  time  averaged  sheath  velocity,  the  plasma  sheath  cannot  be  said 
to  expand  as  a  function  of  position,  that  Is,  If  the  plasma  sheath  does 
expand.  It  Is  masked  by  the  velocity  errors.  If  the  position  dependent 
velocity  profiles  are  used,  the  sheath  appears  to  be  stable  (with  the 
errors)  In  the  region  from  the  mid-bottom  to  mid-top  levels.  For  all 
locations,  the  plasma  sheath  appears  to  expand. 


In  summary,  shot  J1104  operates  In  Len's  transition  region.  The  plasma 
sheath  Is  at  least  0.1  m  thick.  The  slug  model  represents  the  plasma 
sheath  behavior  well  until  the  neutral  gas  from  the  upper  valve 
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Interacts  with  the  charged  particles  of  the  plasma  sheath.  As  noted 
before,  only  the  E  *  B  single  particle  drift  velocity  yields  velocities 
of  the  right  order  of  magnitude. 

4.6  DISCUSSIONS  OF  CURRENT 

It  Is  Interesting  that  a  large  number  of  shots  showed  behavior  that 
suggests  plasma  formation  Is  not  limited  to  the  gas  Injection  site.  It 
seems  to  continue  throughout  the  coaxial  plasma  gun  from  the  gas 
Injection  site  to  the  middle  of  the  gun.  This  Is  Indicated  by 
Increasing  current  from  the  bottom  to  the  mid-bottom  levels.  This 
suggests  a  diffuse  plasma  or  a  sporadic  plasma  formation  away  from  the 
gas  Injection  site.  The  data  only  suggests  this  behavior;  It  does  not 
positively  Indicate  this  behavior,  since  calibration  errors  are 
sufficiently  large  to  be  an  explanation. 

The  following  shots  show  this  behavior  (where  mid-bottom  current  exceeds 
the  bottom  current);  03001,  D3004,  D3005,  D3007,  D3008,  03009,  D3010, 
J0703,  J1003,  J1006,  J1007,  J1009,  J1106,  J1007,  J1110  and  Jllll.  That 
some,  but  not  all,  the  shots  exhibit  this  behavior  Indicates  the 
phenomenon  Is  not  necessarily  a  result  of  the  probe  calibrations,  but 
may  be  a  characteristic  of  the  Individual  shots.  In  most  of  these 
cases,  the  current  Increase  from  the  bottom  to  the  mid-bottom  levels  Is 
5%  or  less.  (The  current  Increase  Is  determined  by  the  difference 
between  the  bottom  and  mid-bottom  currents  divided  by  the  average  of  the 
bottom  and  mid-bottom  currents.)  For  shots  D3005,  J1007,  01009  and 
J1110,  the  Increase  Is  larger  with  8%,  6fc,  11X  and  11X  respectively. 


Currents  are  directly  determined  by  Rogowskl  coll  measurements  and  by 
the  §  probes  (at  the  bottom,  mid-bottom,  mid-top  and  top  levels).  Gun 
muzzle  current  Is  not  directly  measured.  However,  muzzle  current  can  be 
extrapolated  from  S  probe  data.  A  first  order  extrapolation  assumes  a 
current  delivery  of  the  form 

I .j(z)  -  mz  +  b 

where  I-j(z)  Is  linearized  current  as  a  function  of  position,  m  Is  the 
current  slope  and  b  Is  current  at  the  position  z  -  0  (the  presumed 
current  Initiation  point  at  the  gas  feed  port  center).  Given  the  shot 
data,  current  slope  should  be  negative. 

Assuming  plasma  sheath  current  decreases  by  particle  Interactions, 
another  model  can  be  generated.  The  current  delivery  Is  of  the  form 

Ie(z)  -  I  e1*2 

C  0 

where  I.(z)  Is  exponential  current  as  a  function  of  position,  I  Is 

C  0 

current  at  z  ■  0  and  u  Is  a  coefficient  representing  plasma  sheath 
current  loss.  Here,  u  Is  also  negative  since  current  generally 
decreases  as  position  Increases  from  z  -  0  to  z  ■  z  (with  z  the 

o  o 

coaxial  gun  end  ■  0.4636  m). 


Table  14.  Summary  of  Current  Delivery 


Shot 

Neutron 

Yield 

Center 

Current 

(MA) 

Top  Level 

Current 

(MA) 

Linear 

Extrap. 

Current 

(MA) 

Exponential 

Extrap. 

Current 

(MA) 

D2901 

2.8*10® 

— 

0.18 

0.05 

D3001 

1.2*107 

1.43 

1.00 

0.99 

0.99 

03002 

1.4*107 

•  1.31 

0.48 

— 

— 

03003 

7.7*106 

1.29 

1.06 

1.02 

1.02 

03004 

9.2*10® 

1.24 

1.06 

1.02 

1.02 

03005 

1.1*107 

1.44 

0.97 

0.95 

0.95 

03006 

2.3*107 

1.39 

0.68 

0.52 

0.56 

D3007 

1.2*107 

1.44 

1.07 

0.98 

0.98 

D3008 

3.1*107 

1.57 

0.97 

0.90 

0.91 

D3009 

4.4*107 

1.19 

0.92 

0.85 

0.86 

03010 

3.0*107 

1.40 

0.89 

0.83 

0.84 

J0701 

5.8*107 

1.54 

0.89 

1.02 

1.02 

2.0*10 


J0702 


1.92 


1.02 


0.57 


0.59 


Table  14  (continued! 


Shot 

Neutron 

Yield 

Center 

Current 

(HA) 

Top  Level 

Current 

(MA) 

Linear 

Extrap. 

Current 

(MA) 

Exponential 

Extrap. 

Current 

(MA) 

J0703 

1.6x10® 

1.57 

0.64 

0.54 

0.59 

J0706 

4.0xl07 

1.46 

0.85 

0.80 

0.82 

J0707 

7..4xl07 

1.55 

0.75 

0.67 

0.70 

J0708 

4.2xl07 

— 

0.76 

0.71 

0.72 

J0902 

6.9xl07 

1.76 

0.66 

0.63 

0.64 

J0903 

7.9xl06 

2.09 

0.56 

0.42 

0.48 

J0904 

5.2*107 

1.65 

0.59 

0.48 

0.53 

00905 

2.7xl06 

2.36 

0.40 

0.33 

0.37 

J1001 

3.0x10® 

2.12 

0.52 

0.43 

0.47 

J1002 

1.2x10® 

1.48 

0.95 

0.92 

0.93 

J1003 

4.0xl07 

1.65 

0.86 

0.84 

0.85 

01005 

7.3xl07 

— 

0.55 

0.50 

0.52 

01006 

4.4xl06 

1.30 

0.62 

0.56 

0.58 

Table  14  (concluded). 


Shot 

Neutron 

Yield 

Center 

Current 

(MA) 

Top  Level 

Current 

(MA) 

Linear 

Extrap. 

Current 

(MA) 

Exponential 

Extrap. 

Current 

(MA) 

J1007 

5. (MO7 

1.46 

0.78 

0.69 

0.72 

J1008 

5.0*106 

2.22 

0.22 

0.09 

0.19 

J1009 

l.lxlO8 

1.52 

0.82 

0.78 

0.80 

J1103 

2.3xl07 

1.96 

0.51 

0.38 

0.43 

J1104 

l.l^lO8 

1.70 

0.73 

0.63 

0.67 

J1105 

3.9*108 

1.51 

0.97 

0.88 

0.90 

J1106 

1.9xl08 

1.53 

0.89 

0.63 

0.64 

J1107 

2.8x10® 

1.61 

0.78 

— 

— 

J1108 

3.1xl08 

1.61 

0.78 

0.69 

0.73 

J1109 

1.3xl08 

1.51 

0.89 

0.83 

0.85 

J1110 

l.lxlO8 

1.61 

0.84 

0.76 

0.78 

Jim 

5.0xl08 

1.47 

0.84 

0.77 

0.79 

J1201 

3.0xl08 

— 

0.79 

0.69 

0.72 
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Using  reasonable  data,  current  loss  model  profiles  can  be  derived.  This 
extrapolated  data  (derived  by  using  a  linear  least  squares  fit)  Is 
presented  In  Table  14.  Reasonable  data  assumes  physical  constraints. 

As  long  as  the  current  Is  driven  by  J  *  B  forces.  It  Is  never  less  than 
zero.  This  has  application  In  calculating  the  linearized  current  I-j(z). 

4.7  DISCUSSIONS  OF  VELOCITY 

In  Figure  64,  the  calculated  slug  velocity  as  a  function  of  axial 
position  Is  displayed.  Sheath  velocity  Is  a  monotonic  slowly  Increasing 
function  of  the  position,  similar  to  a  curve  generated  by  a  velocity 
proportional  to  the  square  root  of  axial  position. 

Average  slug  model  sheath  velocity  is  2.8*105  m/s.  The  averaged  sheath 
velocity  Is  not  the  linear  average  of  the  slug  model  velocity  since  a 
time  average  (Instead  of  a  spatial  average)  was  used.  Sheath  velocity 
and  axial  position  are  small  until  the  driving  current  develops  a 
sufficiently  large  acceleration. 

Sheath  velocities  are  calculated  for  the  shots  studied  In  detail  (D3004, 
J1006  and  J1104).  This  sheath  velocity  Is  determined  by  the  use  of  a 
reference  current.  The  reference  current  Is  a  substantial  fraction  of 
the  peak  current  at  all  four  axial  positions  (either  0.4  or  0.5  MA). 

The  time  when  this  reference  current  Is  reached  Is  then  determined  for 
each  axial  position.  In  this  way,  a  time  differential  At  Is  created. 
Knowing  the  difference  In  axial  position,  4"  (0.1016  m),  an  averaged 
velocity  Is  generated.  These  are  shown  In  Figure  64. 


POSITION  (METERS) 


Agreement  between  the  position-velocity  curve  and  averaged  velocities  of 
the  selected  shots  Is  relatively  good.  The  averaged  velocities  are  the 
magnitude  of  slug  model  predictions  and  show  Increasing  sheath  velocity 
as  a  function  of  position. 

The  data  covers  5  us  of  elapsed  time.  Behavior  after  this  time  cannot 
be  predicted  beyond  trends  already  present.  Although  some  errors  exist 
In  the  velocity  calculation  and  even  with  the  limitations  on  timing,  the 
data  suggests  several  components  with  different  velocities  In  the  plasma 

5 

sheath.  A  first  wave  travels  with  a  velocity  of  8*10  m/s.  A  second 

c 

wave  has  a  velocity  of  2*10  m/s.  This  multivelocity  behavior  Is  not 
predicted  by  the  model.  Multiple  plasma  sheath  components  with 
different  velocities  are  suggested  by  the  data  In  Figures  65  and  66. 

Both  Figures  65  and  66  present  all  shots  where  an  averaged  sheath 
velocity  could  be  calculated.  Since  there  were  39  shots  yielding 
current  data  and  there  Is  a  great  deal  of  scatter  In  the  data,  these 
Figures  are  extremely  "busy".  Even  so,  the  data  still  highlights 
several  trends  In  the  plasma  sheath  behavior.  In  Figure  65,  averaged 
sheath  velocities  are  calculated  as  a  function  of  position  for  reference 
currents  of  0.3  MA  and  less.  In  Figure  66,  averaged  sheath  velocities 
are  given  for  reference  currents  larger  than  0.3  MA.  Although  much  data 
Is  closely  spaced,  some  Individual  data  points  may  be  distinguished. 

The  legend  for  the  two  Figures  Is  given  In  Table  15. 

In  Figure  65  (for  reference  currents  of  0.3  MA  or  less),  most  plasma 

C 

sheath  velocities  are  between  2.8  and  5.0±10  m/s  at  0.14605  m 


AXIAL  POSITION  (METERS) 


Sho- 

C  # 
OJ 

i-  • 
(1)  } 


'  ai 

i-.S- 


<u  cn 
!  >  o 

I  5c 

(Q  <0 
t - XT  <*>  -C 


!\ 


SHEATH  VELOCITY  (M/S) 


.050  .150  .250  .350 

AXIAL  POSITION  (METERS) 


8H 


1} 

l‘S 

'!< 

»s 


w 

i 

i 

V*« 


I 

V 

V 

V 
;» 

ss 


(mid-plane  between  the  bottom  and  mid-bottom  levels).  After  that 

position,  there  Is  a  great  deal  of  scatter  of  the  averaged  sheath 

velocities.  At  an  axial  position  of  0.24765  m  (mid-plane  between  the 

mid-bottom  and  mid-top  levels),  calculated  averaged  sheath  velocities 

c 

range  from  1.5  to  9.0*10  m/s.  At  an  axial  position  of  0.34925  m  (the 
mid-plane  between  the  mid-top  and  top  levels),  two  groupings  of 
calculated  averaged  sheath  velocities  are  Identifiable,  one  clustered  at 
2*10®  m/s  and  the  other  clustered  at  10®  m/s.  Since  Figure  65  uses  a 
small  reference  current,  a  larger  sheath  velocity  Is  Indicated. 

(Several  calculated  averaged  sheath  velocities  greater  than  1.0*10®  m/s 
are  excluded  from  Figure  65  to  allow  the  rest  of  the  data  to  be 
displayed.)  Larger  averaged  sheath  velocities  are  readily  Indicated  In 
this  Figure,  since  they  form  the  Initial  plasma  sheath  front  and  will  be 
detected  first. 


In  Figure  66  (for  reference  currents  greater  than  0.3  MA),  the  behavior 

of  Figure  60  Is  generally  repeated.  At  0.14605  m,  most  averaged  plasma 

5 

sheath  velocities  range  from  3.0  to  4.5*10  m/s.  At  0.24765  m,  two 
groups  of  plasma  sheath  velocities  are  Indicated,  one  clustered  at 
3.0*10®  m/s  and  the  other  at  6.5*10®  m/s.  At  0.34925  m,  several  plasma 

c  c  c 

sheath  velocities  are  seen,  at  1.0*10  m/s,  4.0*10  m/s  and  5.5*10  m/s. 
A  slower  plasma  sheath  front  Is  Indicated  In  the  cluster  of  the 

E 

velocities  at  1.0*10  m/s  at  0.34925  m.  For  the  observed  data,  this 
slower  plasma  sheath  appears  to  be  separating  from  the  faster  plasma 
sheath.  A  slower  plasma  sheath  velocity  Is  Indicated  for  larger 
reference  currents  where  the  slower  plasma  velocity  Is  necessary  to 
produce  the  higher  reference  currents. 
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Shot 

Figure  65  notation 

Figure  66  notation 

02901 

a 

03001 

b 

B 

D3002 

c 

03003 

d 

0 

D3005 

e 

E 

03006 

F 

03007 

9 

G 

03008 

H 

D3009 

1 

I 

03010 

J 

J0701 

k 

K 

J0702 

1 

J0703 

m 

M 

J0706 

n 

N 

J0707 

0 

0 

J0708 

P 

P 

J0902 

q 

Q 

J0903 

r 

R 

J0904 

s 

S 

J0905 

t 

T 

J1001 

u 

U 

J1002 

V 

V 

J1003 

w 

W 

J1005 

X 

X 

J1007 

y 

Y 

J1008 

z 

J1009 

1 

1 

J1103 

2 

2 

J1105 

3 

3 

J1106 

4 

4 

J1107 

5 

5 

J1108 

6 

6 

J1109 

7 

7 

J1110 

8 

8 

Jllll 

9 

9 

J1201 

* 

NOTE:  In  Table  15,  the  lower  case  alphabetic  character  indicates  the 
slower  sheath  velocities  (In  Figure  65)  and  the  upper  case  alphabetic 
character  Indicates  the  faster  sheath  velocities.  Blanks  In  the  Table 
indicate  no  appropriate  data  Is  generated  for  that  shot.  Should  this 
slower  velocity  sheath  component  not  be  present,  larger  reference 
currents  may  not  be  attained. 
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The  data  suggests  the  single  particle  E  «  B  drift  velocity  of  7*103  m/s 
and  the  terminal  slug  model  sheath  velocity  (8*10®  m/s)  are  relevant 
models  for  fast  plasma  sheath  velocity  component.  The  slower  sheath 
velocities  (on  the  order  of  1  to  2*10®  m/s)  suggest  either  the 
Rosenbluth  or  the  reported  Flshblne  sheath  velocities  may  be  valid.  The 
slower  velocities  are  evident  only  at  long  times  (longer  than  5  ps). 

Late  time  data  Is  required  to  conclusively  Indicate  the  appropriate 
model  for  slower  plasma  sheath  velocities. 


4.8  DISCUSSION  OF  NEUTRON  YIELDS 


Analysis  of  the  neutron  data  suggests  the  neutron  production  Is  more  a 
function  of  the  delivered  current  to  the  D-D  pinch  than  the  driving 
current.  The  experimental  relation  between  the  neutron  yield  Y^  and  the 
current  I  Is  [57,  190] 


Yn  -  1.2*1010  I3*3 


with  I  In  units  of  MA.  (A  graphical  relation  Is  displayed  In  Figure 

67.)  Theoretical  analysis  predicts  I4  relation  for  neutron  yield. 

3  3 

Cowan  [191]  notes  the  I  behavior  Is  due  to  Insulator  limitations. 

C  Q 

For  the  experimental  neutron  yields  (from  2.7*10  to  5.0*10  ),  the 
relevant  currents  are  from  0.08  to  0.38  MA. 


The  neutron  yield  for  each  shot  Is  displayed  as  a  function  of  current  in 
Figures  68  to  71.  Four  different  current  measurements  are  used. 

Relevant  currents  are  gun  current  (measured  by  the  chamber  Rogowskl  coll 
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and  shown  In  Figure  68),  top  current  (measured  by  the  top  level  §  probes 
and  shown  In  Figure  69)  and  extrapolated  muzzle  current.  Two  models  are 
used  to  extrapolate  the  muzzle  current,  a  linear  model  (shown  In  Figure 
70)  and  an  exponential  model  (shown  In  Figure  71).  These  currents  are 
discussed  In  Section  4.6.  The  data  Is  displayed  In  Table  14. 


To  examine  the  behavior  of  the  neutrons  as  a  function  of  current,  a 
simple  power  law  Is  presumed.  This  model  assumes 
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with  k  and  n  constants.  A  linearized  least  squares  fit  Is  performed  and 
the  results  displayed  In  Table  16. 

Using  the  Information  In  Table  16,  several  observations  can  be  made. 

The  first  Is  neutron  yield  does  not  scale  with  gun  current.  A  second  Is 
the  coaxial  gun  with  both  the  upper  and  lower  gas  valves  yields  more 
neutrons  than  the  gun  with  only  the  single  lower  valve.  A  third  Is  the 
experiment  does  not  match  the  predicted  Bernard  neutron  yield. 


Table  16  shows  neutron  yield  does  not  correlate  with  the  driving  gun 
current.  Simple  physical  arguments  state  the  neutron  yield  goes  as  Im, 
m  a  positive  number  of  about  4.  Least  squares  fit  of  the  chamber 
current  yields  a  negative  exponent--an  unphysical  result.  A  negative 
exponent  would  Imply  neutron  yield  goes  to  Infinity  as  the  current 
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Table  16.  Summary  of  Neutron  Yield  Data 


Relevant  Current 

Oata  Set  Used 

K 

n  Confidence 

Level 

Chamber  current 

All  shot  data 

9.5*107 

-2.054 

>80% 

One  valve  data 

2.9*107 

-1.925 

>80% 

Two  valve  data 

3.0xl08 

-1.415 

>50% 

Top  current 

All  shot  data 

6.6xl07 

1.682 

>99.5% 

One  valve  data 

3.2*107 

1.180 

>95% 

Two  valve  data 

4.2x10® 

3.860 

>99% 

Extrapolated 

All  shot  data 

6.2*107 

1.055 

>95% 

Linearized 

One  valve  data 

3.2x10' 

0.772 

>90% 

Muzzle  Current 

Two  valve  data 

4.6x10® 

2.783 

>95% 

Extrapolated 

All  shot  data 

6.1xl07 

1.150 

>99% 

Exponential 

One  valve  data 

3.2x10' 

0.878 

>95% 

Muzzle  Current 

Two  valve  data 

4.6x10® 

3.133 

>95% 

approaches  0.  The  statistical  confidence  level  for  these  fits  Is  much 
poorer  than  the  other  models.  The  neutron  yield  Is  not  a  function  of 
the  driving  current. 

The  data  shows  gas  valve  conditions  affect  neutron  yield.  Using  the 
lower  valve  system  alone  consistently  produces  neutron  yields  less  than 
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the  two  valve  system.  Two  gas  valve  data  shows  a  constant  a  about  an 
order  of  magnitude  above  the  single  gas  valve.  The  exponent  8  for  the 
two  valve  system  data  Is  larger  than  the  exponent  for  the  single  valve 
data  by  about  2.0.  Using  both  single  valve  and  two  valve  data  gives 
intermediate  values.  Exponents  for  the  two  valve  system  Is  from  2.8  to 
3.9  (depending  on  the  data  set). 

Because  of  the  cathode  rod  structure,  plasma  may  be  lost  from  the  gun 
annulus  region  by  particle  collisions,  charged-charged,  charged-neutral 
or  neutral -neutral.  Current  Is  reduced  from  the  plasma  Initiation  site 
to  the  plasma  gur  muzzle.  This  current  attenuation  Is  observed.  The 
plasma  sheath  Is  also  be  diminished  and  the  mass  delivered  to  the  gun 
muzzle  Is  reduced.  With  the  additional  gas  from  the  second  valve,  total 
deuterium  mass  and  the  gas  density  at  the  gun  muzzle  Is  Increased. 
Increased  deuterium  density  Increases  the  D-D  fusion  reaction  rate  and 
the  neutron  yield.  With  a  short  distance  from  the  upper  gas  valve  to 
the  gun  muzzle,  a  substantial  fraction  of  the  upper  gas  valve  gas  Is 
delivered  to  the  gun  muzzle. 

The  top  current  data  has  a  higher  confidence  level  than  the  extrapolated 
muzzle  currents.  The  top  current  data  has  the  advantage  of  being 
consistent,  since  It  Is  derived  from  actual  measurements.  Extrapolated 
muzzle  data  reflect  current  variations  at  each  level.  The  extrapolated 
data  reflects,  at  most,  four  axial  positions.  The  position  data  Is  not 
always  consistent  and  extrapolated  data  variations  are  to  be  expected. 


Seen  In  Figures  67  to  71,  agreement  between  the  experimental  data  and 
the  predicted  neutron  yield  Is  not  good.  The  magnitude  of  the  neutron 
yield  Is  small  by  a  factor  of  100  to  1000.  The  disagreement  between  the 
shot  data  and  the  predicted  neutron  yield  can  be  ascribed  to  different 
multivelocity  components  In  the  plasma  sheath  and  the  transition  mode 
operation  of  the  coaxial  plasma  gun.  The  plasma  gun  does  not  create  a 
plasma  that  will  focus  at  the  muzzle.  The  vacuum/ Insulator  Interface 


has  an  effect  on  neutron  yield,  but  the  magnitude  of  the  effect  cannot 
be  extracted  from  this  experimental  series. 


5.0  SUKWARY  AND  CONCLUSIONS 


I  have  described  a  sequence  of  coaxial  plasma  gun  shots  performed  on  the 

AFWL  PUFF  capacitor  bank.  This  experimental  series  use  the  72  pF 

capacitor  bank  and  a  8  nH  flat  plate  transmission  line  to  deliver 

voltage  and  current  to  a  plasma  gun.  Currents  of  1.6  MA  are  delivered 

to  the  coaxial  plasma  gun.  Initial  current  rise  for  the  plasma  gun  ^ 

dt 

12 

Is  2x10  A/s.  The  capacitor  bank  voltage  ranges  from  60  to  70  kV 
corresponding  to  stored  energies  from  130  to  176  kJ. 

The  coaxial  plasma  gun  has  an  Inner  anode  of  5.125"  (0.1302  m)  diameter 
and  a  cathode  structure  of  24  rods  of  1/2"  diameter  (1.27x10  m). 

Cathode  Inner  diameter  Is  7“  (0.1778  m).  The  anode  structure  Is  24.75" 
(0.6287  m)  long;  the  cathode  rods  are  about  0.5"  shorter.  Plasma  gun 
Inductance  Is  21  nH.  Gas  Is  fed  to  plasma  gun  at  two  places:  a  series 
of  96  0.25"  diameter  through  holes  In  the  anode  at  axial  positions  from 
5.75"  (0.1461  m)  to  7.25"  (0.1842  m)  above  the  plasma  gun  base. 

Deuterium  Is  the  only  fill  gas  used  In  this  series. 

Diagnostic  devices  described  In  this  dissertation  are:  capacitive 
voltage  probes,  Rogowskl  coll  current  monitors,  §  probes  and  a  thermal 
neutron  activated  silver  Gelger-MUller  tubes.  Capacitive  voltage  probes 
are  mounted  In  the  transmission  line  outside  the  plasma  gun.  Rogowskl 
colls  are  mounted  In  the  transmission  line  external  to  the  plasma  gun 
and  at  the  base  of  the  plasma  gun.  5  probes  are  mounted  at  four 
different  axial  and  four  different  azimuthal  positions  In  the  plasma  gun 


for  a  total  of  16  different  positions.  The  §  probes  measure  the 
magnetic  field  as  the  plasma  sheath  passes  them.  Of  these  16  §  probes, 
13  of  them  operated  throughout  the  entire  sequence  of  data  shots.  The 
neutron  detector  Is  mounted  external  to  the  coaxial  plasma  gun.  I  have 
examined  the  physics  of  the  diagnostic  devices  stressing  experimental 
applications.  Passive  (RC)  Integrators  are  discussed  as  they  have 
applications  to  voltage  outputs  diagnostic  devices.  Calibration  methods 
for  the  diagnostic  devices  are  also  discussed.  Diagnostic  hardware 
limitations  are  discussed. 

In  modeling  the  plasma  sheath  velocity,  I  have  Investigated  four  sheath 
velocity  models:  an  Alfven  charged-neutral  dominated  model,  the 
Rosenbluth  model,  a  single  particle  E  *  B  drift  velocity  model  and 
Flshblne's  limited  or  saturated  model.  Additionally,  I  have  used  a 
simple  slug  model  computer  code  to  predict  the  position  and  velocity  of 
an  axial  sheath.  This  code  Is  used  to  predict  the  voltage  seen  by  the 
voltage  probe,  the  current  driving  the  plasma  sheath  and  the  Inductance 
caused  by  the  plasma  sheath  moving  through  the  plasma  gun. 

I  have  examined  the  plasma  sheath  velocity  profiles  within  the  plasma 
gun  and  the  neutron  products  of  the  deuterium  Interactions.  I  have 
estimated  the  plasma  sheath  thickness  In  the  gun.  I  have  compared 
velocity  profiles  to  slug  model  predictions  and  compared  neutron  yields 
as  a  function  of  current  to  predicted  neutron  yields. 

I  have  used  experimental  data  to  generate  Information  about  delivered 
power  and  energy  past  the  site  of  the  voltage  monitor  positions. 


I  have  used  Len's  technique  to  differentiate  between  the  snowplow  and 

deflagration  inodes  of  operation  of  a  coaxial  plasma  gun.  This  technique 

Involves  an  Incremental  change  In  current  as  a  function  of  axial 

position  A  snowplow  mode  Is  Indicated  If  the  value  of  ^  Is 

Az  Az 

sharp  (l.e.,  a  delta-like  function  In  time).  A  deflagration  mode  Is 

Indicated  If  _  1s  relatively  flat  (with  no  substantial  positive  or 
Az 

negative  variations). 

I  have  discussed  the  procedure  for  converting  oscilloscope  records  Into 
digitized  data.  I  have  Included  discussions  of  the  data  format  and  a 
program  for  data  conversion  and  correction.  An  Interactive  computer 
program  was  written  to  provide  the  routines  required  for  data 
conversion.  The  program  Included  routines  for  adding,  subtracting, 
multiplying,  dividing  and  averaging  data  files.  Other  program  routines 
allowed  data  differentiation.  Integration,  functional  transformation, 
baseline  correction,  angular  rotation  about  the  axis,  smoothing  and 
correction  for  "RC  droop". 

I  have  analyzed  the  behavior  of  the  AFWL  PUFF  coaxial  plasma  gun  using 
the  output  of  diagnostic  Rogowskl  colls,  5  probes  and  capacitive  voltage 
probes.  For  this  system,  I  have  observed: 

1)  The  AFWL  PUFF  coaxial  plasma  gun  does  not  operate  completely  In 
either  the  snowplow  or  deflagration  mode.  It  operates  In  Len's 
transition  region.  The  plasma  gun  may  begin  with  snowplow 
behavior;  however,  the  mode  of  operation  becomes  characteristic 


of  deflagration.  This  was  observed  In  all  cases  of  operation. 
Only  when  the  driving  current  is  Isolated  from  the  plasma  gun 
Is  snowplow  behavior  sustained.  Since  the  plasma  gun  operated 
in  a  transition  region,  it  showed  characteristics  of  both  the 
snowplow  and  deflagration  modes.  A  high  velocity  plasma 
component  (of  80  cm/ys  or  8*10^  m/s)  Is  created  In  the  plasma 
gun.  Estimates  for  the  plasma  sheath  appear  to  be  0.10  m  or 
more  thick.  The  AFWL  PUFF  coaxial  plasma  gun  produces  neutrons 
at  the  gun  muzzle.  It  appears  neither  mode  Is  particularly 
efficient  In  terms  of  Ionic  conversion  of  deuterium— only  about 
0.1  mg  (10-7  kg)  deuterium  mass  appears  In  the  plasma  sheath. 

2)  The  plasma  Is  formed  by  the  gas  breakdown  of  the  leading  edge 
of  the  fill  gas  density.  Paschen  breakdown  drives  the  plasma 
formation.  Plasma  formation  may  occur  over  an  extended  region 
In  the  plasma  gun. 

3)  Coaxial  plasma  gun  behavior  Is  altered  by  using  the  upper 
plasma  valve.  The  upper  gas  valve  appears  to  cause  stagnation 
of  the  plasma  sheath  and  to  decrease  the  sheath  velocity.  It 
Is  possible  the  two  valve  system  Increases  the  magnitude  of  the 
plasma  current  by  concentrating  gas  and  plasma.  Using  the 
upper  gas  valve  Increases  neutron  production. 

4)  The  plasma  sheath  velocity  Is  not  adequately  characterized  by 
the  Alfven  critical  velocity,  the  Rosenbluth  sheath  velocity  or 
Flshblne's  saturated  plasma  sheath  velocity  model.  Only  the 


single  particle  E  «  B  drift  velocity  Is  of  the  magnitude  for 
the  gun  plasma  sheath.  The  plasma  sheath  appears  to  be 
composed  of  several  components.  The  faster  plasma  sheath 
velocity  Is  described  by  the  single  particle  theory  or  the  slug 
model  computation  given  here.  Slower  plasma  sheath  components 
may  be  described  by  the  Rosenbluth  or  the  Flshblne  model.  Only 
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Alfven's  model  finds  no  application  In  the  current  studies. 

5)  The  AFWL  PUFF  coaxial  plasma  gun  Is  well  modeled  early  In  time 
by  a  0-D  slug  model  driven  by  a  lumped  element  circuit  model. 
The  model  performs  well  modeling  from  the  plasma  Initiation 
site  to  the  gun  muzzle.  The  simulation  terminates  the  plasma 
reaches  the  gun  muzzle.  Plasma  flow  past  the  end  of  the  plasma 
gun  muzzle  Is  not  Incorporated  Into  the  model.  Internal  plasma 
behavior  Is  not  characterized. 

6)  The  azimuthal  variation  of  the  different  probes  In  the  coaxial 
plasma  gun  Indicates  the  plasma  flow  Is  laminar,  but  does 
exhibit  some  turbulence.  The  plasma  sheath  seems  to  have 
asymmetric  characteristics  (spoking)  away  from  the  plasma 
Initiation  site. 

7)  The  lack  of  optimization  of  either  the  snowplow  or  deflagration 
modes  may  be  due  to  the  plasma  Initiation  process.  In  the  AFWL 
PUFF  gun,  the  Insulator  is  Isolated  from  the  neutral  feed  gas. 
Gas  breaks  down  without  the  Insulator  as  a  breakdown  site  or  as 
a  source  for  ultraviolet  and  soft  X-rays  for  pre- Ionization. 


8)  The  number  of  neutrons  produced  by  the  coaxial  plasma  gun  Is  a 
factor  of  100  to  1000  smaller  than  the  Bernard  relation 
prediction.  Neutron  production  for  the  two  valve  system  Is 
higher  than  the  one  valve  system,  likely  due  to  the  Increased 
gun  muzzle  deuterium  density  delivered.  The  exponent  n  (In  In) 
for  the  two  valve  system  Is  about  3.  Neutron  yield  Is  a 
function  of  the  current  delivered  to  the  gun  muzzle,  not 
current  delivered  to  the  coaxial  plasma  gun. 

9)  With  the  present  AFWL  PUFF  coaxial  plasma  gun,  plasma  current 
Is  not  completely  delivered  to  the  gun  muzzle.  Loss  mechanisms 
Indicated  for  this  system  are  colllslonal  particle  Interactions 
and  loss  of  gas  through  the  cathode  rod  structure. 

5.1.  APPLICATIONS  OF  THE  PRESENT  WORK 

In  several  respects,  the  research  In  this  dissertation  Is  limited.  It 
only  describes  observed  behavior  of  the  AFWL  PUFF  coaxial  plasma  gun. 

It  does  not  describe  the  use  of  gases  other  than  deuterium.  It  does  not 
describe  the  plasma  behavior  late  In  time.  Plasma  sheath  behavior  Is 
Inferred  through  the  use  of  current  and  §  probe  diagnostic  devices.  The 
main  thrust  of  the  present  work  Is  directed  towards  defining  a  complete 
range  of  operating  parameters  of  the  present  AFWL  PUFF  coaxial  plasma 
gun  design.  In  terms  of  Immediate  applications,  the  varied  coaxial 
plasma  gun  uses  cited  In  Section  1  apply.  With  high  plasma  sheath 
velocities  and  fusion  product  neutrons,  the  deuterium  filled  plasma  gun 


may  be  used  to  stress  materials  and  electrical  components  and  to 
simulate  the  nuclear  effects  on  materials  and  components. 
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5.2.  SUGGESTIONS  FOR  FUTURE  RESEARCH 


As  would  be  expected,  more  experimental  research  on  the  AFVL  PUFF 


coaxial  plasma  gun  design  Is  recommended.  Questions  to  be 


answered  are: 


1)  What  additional  Information  can  be  Inferred  from  a  repetition 


of  these  experiments  using  absolute  timing  references? 


2)  Does  the  late  time  behavior  of  the  AFWL  PUFF  coaxial  plasma  gun 


differ  significantly  from  early  time  behavior  described  here? 


3)  What  are  the  mass  and  charged  particle  density  profiles  of  the 


the  gas  In  the  plasma  gun  annular?  What  are  the  mass  and 


charged  particle  densities  of  the  (supposedly  charge  neutral) 


gas  ahead  of  the  plasma  sheath?  What  are  the  mass  and  charged 


particle  densities  of  the  plasma  sheath?  What  are  the  mass  and 


charged  particle  densities  of  the  region  behind  the  plasma 


sheath? 


4)  What  Is  the  composition  of  the  plasma  sheath? 


5)  What  effect  does  the  solid  anode  structure  have  on  the  plasma 


sheath? 


E 


6)  What  effect  does  the  cathode  rod  structure  have  on -the  plasma 
sheath?  How  does  this  effect  differ  from  using  solid  outer 
cathodes?  What  effects  could  be  expected  from  changing  the 
number  of  rods  and  the  spacing  of  the  cathode  rods? 

7)  Would  the  AFWL  PUFF  coaxial  plasma  gun  show  the  same  behavior 
with  applied  polarities  opposite  those  of  the  described 
experiments? 

8)  What  effect  do  the  §  probes  have  on  the  plasma  Initiation  and 
plasma  flow? 

9)  What  process  causes  the  snowplow  mode  to  convert  to  the 
deflagration  mode?  Is  It  a  process  that  can  be  triggered  or 
controlled  by  processes  external  to  the  plasma  gun  annular 
region? 

10)  What  effect  does  preionization  of  the  fill  gas  have  on  the  gun 
operation? 

11)  What  effect  do  different  fill  gases  have  on  the  operation  of 
the  AFWL  PUFF  coaxial  plasma  gun? 

12)  Is  the  AFWL  PUFF  coaxial  gun  design  convertible;  can  It  be 
triggered  to  convert  from  one  operating  mode  to  another? 


13)  What  are  the  causes  of  the  plasma  turbulence  and  spoking 
behavior  In  the  middle  of  the  plasma  gun  well  away  from  the 
plasma  initiation  site? 

14)  What  are  the  mechanisms  for  plasma  formation  In  the  AFWL  PUFF 
coaxial  plasma  gun  design?  With  no  accessible 
vacuum/lnsulator  Interface,  does  the  plasma  form  at  a 
particular  site  or  does  It  form  over  an  extended  volume  In  the 
annulus? 

15)  Can  shorting  the  radial  electric  field  be  used  as  a  method  to 
either  remove  or  reduce  azimuthal  spoking  In  the  coaxial 
plasma  gun? 

16)  In  the  AFWL  PUFF  coaxial  plasma  gun,  what  Impact  does  plasma 
spoking  have  on  plasma  sheath  Initiation? 

17)  Why  does  only  a  small  proportion  of  the  fill  gas  Ionize  and 
form  the  plasma  sheath? 

18)  Why  do  various  velocity  components  appear  In  the  plasma 
sheath?  Why  do  these  components  show  a  variation  ranging  from 
less  than  105  to  2*106  m/s? 

19)  What  are  the  specific  mechanisms  for  current  loss  as  the 
plasma  travels  from  the  Initiation  site  to  the  gun  muzzle? 


Can  these  plasma  losses  be  controlled,  minimized  and  optimized 
for  specific  applications? 


20)  How  can  delivered  gun  muzzle  current  be  optimized  for  more 
efficient  neutron  production?  What  effect  does  Isolating  the 
Insulator /dielectric  Interface  from  the  feed  deuterium  gas 
have  on  neutron  production? 


21)  The  Increased  neutron  yield  from  the  AFWL  coaxial  plasma  gun 
Is  related  to  the  use  of  the  second  (upper)  gas  valve.  What 
portion  of  Increased  neutron  yield  Is  due  to  the  Increased  gas 
loading?  What  portion  of  the  neutron  yield  Increase  Is  due  to 
gas  stagnation  In  the  plasma  gun  allowing  more  simultaneous 
current  delivery? 
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APPENDIX  A 


PUFF  CAPACITOR  BANK  OPERATING  PROCEDURES 

1.  Check  that  diagnostics  and  cabling  Is  In  place  and  connected. 

2.  Check  that  screen  room  power  and  air  conditioning  are  on. 

3.  Check  that  oscilloscopes,  oscilloscopes  triggers,  delays  and  cameras 
are  ready. 

4.  Check  that  pre-fire  feedback  connections  are  correct. 

5.  Check  that  the  switch  gas  Is  correct  In  pressurized  switches. 

Bank  switch  gas— 15%  SFg  In  Ar.  For  operation  at  ±  30,  40,  50 
kV,  set  gas  at  41,  53,  65  pslg  pressure. 

Master  trigger  generator— synthetic  air.  90  pslg  pressure. 
Planar  tr lode— synthetic  air.  50  pslg  pressure. 

Prior  to  setting  switch  gas: 

Set  gas  flow  on. 

Set  synthetic  air  regulator  at  100  pslg  pressure. 

Set  SF6/Ar  gas  mixture  Input  at  70  pslg  pressure. 

Set  master  trigger  generator  planar  Input  to  100  pslg  pressure. 

Set  master  trigger  generator  trlode  synthetic  air  flow  to  200 
cc/mln. 

Purge  SFg/Ar  In  bank  switches  for  1  minute,  then  set  pressure. 

6.  Check  and  record  bank  switch  pressures  In  the  north  and  south 
switches. 

7.  Lock  and  secure  outer  door  to  PUFF  area. 

8.  Clear  bank  area  of  unnecessary  personnel. 

9.  Visually  Inspect  transmission  line.  Clear  all  tools  and 
unneccessary  Items  from  PUFF  bank. 

10.  Remove  overhead  crane  from  PUFF  area.  Turn  off  crane  power. 

11.  Check  that  D2  gas  lines  are  properly  connected. 

12.  Check  primary  gas  valve  plug.  Set  the  plug  pressure  at  2000  psig. 

13.  Check  primary  gas  valve  plug  for  electrical  continuity. 

14.  Turn  on  console  power  to  the  PUFF  bank. 

15.  Set  the  master  trigger  generator  high  voltage  to  0.0. 

16.  Turn  on  master  trigger  generator  and  planar  trlode.  (5  minute 

warm-up  required.) 

17.  Set  master  trigger  generator  and  planar  trlode  gas  flow  to  0. 
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18.  Check  deadstocks  for  proper  resistance  (330  a). 

19.  Wipe  down  trigger  surfaces  to  remove  excess  dust. 

20.  Perform  pre-fire  response  test.  Apply  a  3.0  V  signal  Into  the 
master  trigger  generator  mixer.  Verify  planar  trlode  fires. 

21.  Set  primary  valve  trigger  high  voltage  to  +2000  V. 

22.  Check  krytron  and  Ignltron  switch  operation. 

23.  Set  planar  trlode  high  voltage  to  25  kV. 

24.  Set  master  trigger  generator  high  voltage  to  58  kV. 

25.  Perform  planar  trlode  and  master  trigger  generator  trigger  checks. 

26.  Flush  the  planar  trlode  and  the  master  trigger  generator.  Perform 
a  15  second  flush  and  then  set  the  gas  flow  to  200  cc/min. 

27.  Verify  a  minimum  of  200  pslg  pressure  of  SFg/Ar  and  synthetic  air 

at  gas  bottle.  0 

28.  Announce  5  minute  warning.  Turn  off  lights  In  PUFF  area. 

29.  Verify  plug  pressure  Is  2000- pslg. 

30.  Fill  D2  gas  valve  plenum  to  the  correct  pressure  (generally  900 
pslg  for  the  lower  valve  and  45  pslg  for  the  upper  valve). 

31.  Verify  vacuum  pressure  Is  acceptable  (<!10~4  Torr). 

32.  Turn  off  vacuum  gauges  and  gauge  controllers.  Remove  gauge  fuses. 
Disconnect  ion  gauge. 

33.  Prepare  cameras  to  view  PUFF  bank.  Open  film  for  exposure. 

34.  Clear  PUFF  area. 

35.  Remove  deads ticks. 

36.  Close  door  to  PUFF  area.  Engage  Interlocks. 

37.  Charge  gas  valve  banks.  (Bottom  gas  valve  set  to  -6  kV.) 


38.  Prepare  the  screen  room. 

Turn  on  silver  detector  high  voltage  (+900  V). 

Reset  oscilloscopes,  delays  and  triggers. 

Turn  on  scintillator  neutron  detector  high  voltage  (-2600  V), 
Open  camera  shutters. 

39.  Set  valve  delay  to  lower  valve. 

40.  If  used,  set  valve  delay  to  upper  valve. 


41.  Turn  on  warning  light  and  siren  power  (28  V). 

42.  Turn  on  bank  charging  power  supply. 

43.  Push  the  bank  charge  reset  button. 

44.  Charge  PUFF  capacitor  bank. 

45.  Close  D2  fill  valve. 

46.  Fire  bank  trigger  and  close  high  vacuum  valve. 

47.  Close  camera  shutters.  Pull  film  from  oscilloscope  cameras. 

48.  Verify  capacitor  bank  was  discharged. 

49.  Dump  all  capacitor  banks. 

50.  Turn  off  bank  charging  supply. 

51.  Turn  off  all  high  voltages  except  silver  detector  power  supply. 

Turn  off  master  trigger  generator  and  planar  trlode  high  voltage. 

52.  Open  Interlocked  door  to  PUFF  area. 

53.  Deadstlck  all  banks.- 

54.  Pull  film  from  cameras  viewing  PUFF  bank. 

55.  Turn  off  warning  light  and  siren  power. 

56.  Turn  on  PUFF  area  lights. 

57.  Pump  up  hydraulic  jack  (to  seal  lower  gas  valve). 

58.  Open  roughing  valve. 

59.  Install  new  plug  In  lower  gas  valve. 

60.  Mark  backs  of  film  (oscillograms). 

61.  Purge  gas  switches. 

Purge  bank  switches  for  1  minute. 

Purge  master  trigger  generator  for  15  seconds. 

Purge  planar  trlode  for  15  seconds. 

62.  If  more  shots  are  desired,  return  to  step  11.  If  no  more  shots  are 
desirea: 

Close  all  gas  bottle  valves  and  set  gas  flow  to  0. 

Turn  off  silver  detector  high  voltage. 

Turn  off  console  and  screen  room  power. 

63.  Before  departing,  verify  all  power  is  off  and  all  gas  bottles 
secured. 


APPENDIX  B 


LISTING  OF  SLUG  MODEL  PROGRAM 

This  FORTRAN  program  listing  Is  provided  to  document  the  slug  model 
modeling  plasma  behavior  In  a  coaxial  plasma  gur.  The  program  was 
written  by  Dr.  James  H.  Degnan  (AFWL/AWPP)  and  subsequently  modified  by 
David  W.  Price  (AFWL/AWPP).  The  model  assumes  lumped  elements  and 
performs  a  simple  Integration  to  predict  plasma  slug  behavior. 

The  model  assumes  fixed  capacitance  C  (the  driving  capacitance), 
two  fixed  Inductances  L01  and  L02  and  a  fixed  resistance  R.  L01  Is  the 
Inductance  up  to  the  physical  location  of  the  voltage  monitor.  L02  is 
the  Inductance  from  the  voltage  monitor  to  the  load  Inductance.  Both 
L01  and  L02  are  system  Inductances;  the  sum  of  L01  and  L02  equals  the 
total  system  Inductance.  The  system  resistance  Is  fixed  at  R.  Strictly 
speaking,  this  Is  not  accurate,  but  for  the  0-D  analysis  this 
calculation  provides,  the  accuracy  Is  sufficient.  The  LLOAD  Inductance 
Is  the  time  varying  load  resistance.  It  varies  linearly  with  the  axial 
position  of  the  slug  In  plasma  gun  channel. 

The  program  Is  heavily  commented.  The  user  should  read  through 
these  comments  before  proceeding  to  program  use. 

Attached  to  the  end  of  the  program  listing  is  a  sample  Input  file. 
The  user  will  need  to  modify  the  Input  to  suit  the  modeled  circuit. 

The  program  Is  currently  hosted  on  the  AFWL/AWPP  VAX  11/750.  The 
source  code  may  have  to  be  modified  for  different  computer  systems. 
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PROGRAM  CLIN 

This  program  calculates  the  Inductance,  voltages  and  current  delivery 
for  a  coaxial  plasma  gun  with  a  plasma  acting  as  a  plasma  armature. 

The  model  assumes  three  Inductances  --  two  system  Inductances 

and  a  time  varying  load  Inductance.  All  other  circuit  parameters  are 

lumped  constants. 

The  lumped  circuit  model  looks  like  the  schematic  below: 


-/L01/- 


-/L02/- 


-/Lload/- 


where  In  this  model, 

C  Is  the  total  capacitance  of  the  system  (assumed  system  driver), 
L01  Is  the  Inductance  of  the  system  at  the  voltage  probe  VP, 

L02  Is  the  system  Inductance  after  the  voltage  probe  VP, 

Lload  Is  the  time-varying  load  Inductance  and 
R  Is  the  total  lumped  system  resistance. 

The  current  drives  a  plasma  along  the  axis  of  the  coaxial  plasma  gun. 

It  then  acts  as  an  armature  to  carry  current  along  the  length  of  the  gun. 

This  changes  the  Inductance  of  the  gun  and  the  performance  of  the  system. 

The  plasma  slug  motion  Is  calculated  by  a  0-0  slug  model  using  fixed  time 
steps  and  coupled  finite  difference  equations. 

The  plasma  slug  Is  assumed  Infinitesimally  thin  and  azimuthal ly  and 
radially  uniform.  It  Is  driven  by  J  x  B  forces  along  the  length  of  the 
coaxial  plasma  gun. 

All  units  are  rationalized  MKSA  (meters/kllograms/seconds/amperes) . 
Identified  parameters  are: 

A1  --  acceleration  of  the  plasma  slug  before  iteration 
A2  —  acceleration  of  the  plasma  slug  after  Iteration 
C  --  the  system  capacitance;  Input 
CURRENT(I)  =  the  calculated  system  current 
DT  —  the  time  step  for  system  calculation 
EO  —  the  total  system  energy 

EC  —  the  time-varying  energy  stored  In  the  capacitance  C 

EK  —  the  kinetic  energy  of  the  plasma  slug 

EL  —  the  magnetic  energy  stored  in  the  total  Inductance 
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ER1  —  the  dissipated  ohmic  energy  before  Iteration 
ER2  --  the  dissipated  ohmic  energy  after  Iteration 
ET  --  total  system  energy 

11  --  the  system  current  before  Iteration 

12  —  the  system  current  after  Iteration 
ID0T1  —  the  calculated  dl/dt  before  Iteration 
ID0T2  --  the  calculated  dl/dt  after  Iteration 
IMAX  —  the  calculated  maximum  current  =  VZERO/Z 

L01  —  the  time-invariant  system  Inductance  before  the  voltage  probe  VP; 
Input 

L02  —  the  time-invariant  system  Inductance  after  the  voltage  probe  VP; 
Input 

LI  —  the  total  calculated  system  inductance  before  Iteration 

L2  —  the  total  calculated  system  Inductance  after  iteration 

LD0T1  —  the  calculated  dL/dt  before  iteration 

LD0T2  —  the  calculated  dL/dt  after  Iteration 

LLOAD(I)  —  the  calculated  time-varying  load  inductance  array 

LZERO  —  the  total  time-invariant  system  inductance  =  L01  +  L02 

M  —  the  mass  of  the  plasma  slug 

MU  —  the  permeability  of  free  space  =  4.0E-7  *  pi  H/m 

PI  —  the  fundamental  mathematical  constant 

PK  --  LD0T2  *  II  *  11/2. 0E0 

Q1  —  the  total  charge  on  the  capacitance  before  Iteration 
Q2  —  the  total  charge  on  the  capacitance  after  Iteration 
RATIO  —  the  calculated  system  energy  over  the  Initial  system  energy 
=  ET/EO 

RES  —  the  total  system  resistance;  Input 
RI  --  the  coaxial  Inner  radius;  input 
RO  —  the  coaxial  outer  radius;  Input 
T1  —  the  time  step  before  iteration 
T2  —  the  time  step  after  Iteration 
TAU  —  the  quarter  cycle  rise  time  of  the  system 
=  (pi/2.0E0)  *  SQRT(LZERO*C) 

TIME(I)  —  the  calculated  time  array 

VI  —  the  plasma  velocity  before  Iteration 

V2  —  the  plasma  velocity  after  Iteration 

VC  —  the  capacitor  voltage 

VLOAD(I)  —  the  calculated  load  voltage  array 

VP ( I )  —  the  calculated  probe  voltage  array  for  a  single  step 

VZERO  —  the  system  voltage  at  time  t  =  O.OEO;  Input 

XK  —  a  parameter  used  to  vary  the  amount  of  data  printed  out.  As 

currently  given,  the  number  of  time  steps  printed  out  to  hard  copy 
is  the  Integer  value  of  3000/XK. 

XL  —  the  power  of  10  calculated  for  the  time  step.  The  time  step  is 
roughly  10.0E0  *  XL  (where  XL  is  approximately  ALOGIO(TAU)) . 

Z  —  the  effective  Impedance  of  the  circuit 
=  SQRT(LZERO/C) 

Z1  --  the  axial  position  of  the  plasma  before  Iteration 

Z2  --  the  axial  position  of  the  plasma  after  iteration 

ZX(I)  —  the  calculated  (axial)  position  array  of  the  plasma  slug 


The  value  of  I  presently  varies  from  1  to  3001. 
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The  system  equations  are  given  below: 

Q  *  C  *  V  (for  the  capacitance) 

V  =  dL/dt  *  I  +  L  *  dl/dt  (for  the  inductors) 

Q/C  *  VC  *  (L01  +  L02  +  Lload)  *  dl/dt  + 

(dL/dt  +  R)  *  I 

Lload  -  MU  *  z  *  AL0G(R0/RI)/(2  *  pi) 
d(Lload)/dt  =  MU  *  v  *  AL0G(R0/RI)/(2  *  pi) 

F  =  M  *  a 

a  =  MU  *  AL0G(R0/RI)  *  I  *  1/(2. 0E0  *  pi  *  M) 
a  *  dv/dt 
v  =  dz/dt 

VP  =  (L02  +  Lload)  *  dl/dt  +  (d(Lload)dt  +  R)  *  I 
Vload  =  Lload  *  dl/dt  +  (d(Lload)/dt  +  R)  *  I 


This  code  was  originally  written  by  Dr.  James  H.  Degnan  and  was 
subsequently  modified  by  David  W.  Price. 

The  following  Tektronix  plot  compatible  files  are  output  under  this  code: 

LL0AD.DAT  —  the  load  inductance 
SLUGI.DAT  —  the  slug  current 
V.DAT  —  the  slug  velocity 
VL0AD.DAT  —  the  load  voltage 
VPROBE.DAT  --  the  probe  voltage 
Z.DAT  —  the  plasma  axial  distance 

The  data  file  --  CLIN.DAT  —  outputs  the  total  code  results. 


C 

C*** 

C 


REAL  Al,  A2,  C,  DT,  EO,  EC,  EK,  EL,  ER1,  ER2,  ET,  II,  12,  ID0T1, 

1  ID0T2,  IMAX,  L01,  L02,  LI,  L2,  LD0T1,  LD0T2,  LZERO,  M,  MU,  PI, 

2  PK,  Ql,  Q2,  RATIO,  RES,  RI,  RO,  Tl,  T2,  TAU,  VI,  V2,  VC,  VZERO, 

3  XK  XL  Z  Z1  Z2  ZL 

REAL  TIME(3001) ,  CURRENT(3001) ,  VEL  (3001),  VP(3001),  ZX(3001), 

1  VLOAD ( 3001 ) ,  LLOAD (3001) 

PI  =  4.0E0  *  ATAN(l.OEO) 

MU  =  4.0E-7  *  PI 

OPEN  FILES  FOR  DATA.  NOTE:  ALL  UNITS  ARE  MKS 
0PEN(UNIT=1 ,NAME=' CLIN. INP 1 , TYPE= 1  OLD 1 .READONLY) 


a 
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OPEN ( UNIT=2 , NAME= 'CLIN. DAT ' , TYPE=  *  NEW ' ) 

OPEN(UNITss3,NAME=l SLUGI .DAT'  ,TYPE=‘ NEW'  ) 

OPEN(UNIT=4 , NAME= ' VPROBE . DAT 1 ,TYPE= ' NEW  * ) 
OPEN(UNIT=5,NAME='Z.DAT' ,TYPE='NEW') 

OPEN ( UNIT=6 , NAME= 1 VLOAD . DAT 1 ,TYPE='NEW') 

OPEN(UNIT=7 , NAME= ' LLOAD . DAT 1 , TYPE= ' NEW ' ) 

0PEN(UNIT=8,NAME=‘ V.DAT1 ,TYPE= 1  NEW  ) 

C 

C***  INPUT  DATA 
C 

101  CONTINUE 

READ  (1,*)  C,  VZERO,  L01,  L02,  RES 
LZERO  =  L01  +  L02 
9  FORMAT(A) 

IF  (C.LE.O.OEO)  GO  TO  999 

102  CONTINUE 

READ  (1,*)  RI,  RO,  H,  Z1 

IF  (RI.LE.O.OEO)  GO  TO  101 

TAU  =  (PI/2.0E0)  *  (SQRT(LZERO*C)) 

XL  =  ALOGIO(TAU)  +  5.0E-1 

IF  ((XL-JNINT(XL)).LE.5.0E-1)  XL  =  FLOAT(JNINT(XL))  -  l.OEO 
IF  ((XL-JNINT(XL)).GT.5.0E-1)  XL  =  FLOAT(JNINT(XL)) 

Z  =  SQRT(LZERO/C) 

IMAX  =  VZERO/Z 
WRITE  (2,*) 

WRITE  (2,*)  '  LI  -  L01,  *  L2  =  ' ,  L02,  '  LZERO  =  LZERO 

WRITE  (2,*) 

WRITE  (2,20) 

20  F0RMAT(1H1,///,1X, 1  C  VZERO  LZERO  RES 

1  TAU  Z  IMAX  RI  RO 

2  1  M1  /) 

WRITE  (2,21)  C,  VZERO,  LZERO,  RES,  TAU,  Z,  IMAX,  RI,  RO,  Zl,  M 

21  FORMAT  (1X,11(1PE10.3,1X)) 

WRITE  (2,*) 

WRITE  (2,23) 


l.OEO 


LZERO 


C***  OUTPUT  TABLE  HEADING 
C 

23  F0RMAT(1X, '  T 
1  VC  EC 

2'  RATIO',//) 


VPROBE 


C***  DEFINE  INITIAL  VALUES 
C 

T1  =  O.OEO 

TIME(l)  =  O.OEO 

II  =  O.OEO 

CURRENT(l)  =  O.OEO 

Zl  =  O.OEO 

ZX(1)  =  O.OEO 

VI  =  O.OEO 

VEL(l)  =  O.OEO 

VP(1)  =  VZERO  *  (L02/LZER0) 

VLOAD(l)  =  O.OEO 


A1  =  O.OEO 

EO  =  0.5E0  *  C  *  VZERO  *  VZERO 

IDOT1  =  VZERO/LZERO 

DT  -  l.OE-3  *  10**XL 

LI  -  LZERO 

Q1  =  C  *  VZERO 

ER1  -O.OEO 

RATIO  =  l.OEO 

EC  =  Q1  *  Q1/(2.0E0  *  C) 

EK  =  M  *  VI  *  V1/2.0E0 
PK  =  II  *  II  *  LD0T1/2.0E0 
LLCAO(l)  =  O.OEO 

WRITE  (2,21)  Tl,  II,  Zl,  VI,  Al,  VZERO,  EC,  EK,  PK,  VP(1),  RATIO 
C 

C***  ITERATION  LOOP 
C 

DO  103  K  =  1,3000 
ICOUNT  =  k  +  1 
T2  =  Tl  +  DT 
TIME(K+1)  *  T2 
12  =  II  +  ID0T1  *  DT 
CURRENT(K+1)  =  12 

I DOT 2  =  (1.0E0/L1)  *  ((Q1/C)-(I1*(LD0T1+RES))) 

Q2  -  Q1  -  II  *  DT 
V2  *  VI  +  Al  *  DT 
VEL(K+1)  =  V2 

Z2  =  Zl  +  0.5E0  *  (V1+V2)  *  DT 
ZX(K+1)  *  Z2 

A2  =  (MU/ (4. OEO*PI ) )  *  (ALOG(RO/RI))  *  (I2*I2/M) 

L2  -  LI  +  LD0T1  *  DT 

LL0AD(K+1)  =  MU  *  Z2  *  AL0G(R0/RI)/(2.0E0*PI) 

LD0T2  =  MU  *  V2  *  ALOG(RO/RI)/(2.0EO*PI) 

VL0AD(K+1)  =  (LL0AD(K+1))  *  ID0T2  +  (LD0T2  +  RES)  *  12 
VP(K+1)  =  (L02  +  LL0AD(K+1))  *  ID0T2  +  (LD0T2  +  RES)  *  12 
ER2  =  ER1  +  II  *  II  *  RES  *  DT 
EK  =  0.5E0  *  M  *  V2  *  V2 
EL  =  0.5E0  *  L2  *  12  *  12 

EC  =  Q2*Q2/(2.0E0*C) 

VC  =  Q2/C 

ET  =  EC  +  EK  +  EL  +  ER2 
RATIO  =  ET/EO 

PK  =  0.5E0  *  12  *  12  *  LD0T2 
IF  (V2.GE. O.OEO)  GO  TO  105 

WRITE(2 ,21)  T2,  12,  Z2,  V2,  A2,  VC,  EC,  EK,  PK,  VP(K+1),  RATIO 
GO  TO  999 
105  CONTINUE 
Zl  =  Z2 

Tl  =  T2 

II  =  12 

Q1  =  Q2 

LI  =  L2 

ID0T1  =  ID0T2 
L00T1  =  L00T2 
ER1  =  ER2 


VI  =  V2 
A1  =  A2 

XK  *  FL0AT(K)/1.0E1 
IF((XK-INT(XK)).LE.1.0E-5*XK) 

1  WRITE(2,21)  T1,I1,Z1,V1,A1,VC,EC,EK,PK,VP(K+1) ,RATIO 
C 

C***  AT  THIS  POINT  THE  CALCULATION  IS  LIMITED.  IF  THE  AXIAL  DISTANCE  IS 
C***  IS  LONGER  THAN  THE  INPUT  VALUE  OF  THE  LENGTH  OF  THE  GUN,  THE  CALCULATION 
C***  IS  ENDED.  IF  THE  COAXIAL  GUNS  USED  ARE  OF  DIFFERENT  LENGTHS,  THE  USER 
C***  WILL  HAVE  TO  CHANGE  THIS  LIMITING  VALUE. 

C 

ZL  =  4.6335E-1 
IF  (Z2.GT.ZL)  GO  TO  106 
C 

C***  TEST  FOR  ENERGY  RATIO.  IF  THE  ENERGY  RATIO  IS  OFF  BY  MORE  THAN  3%,  END 
C***  THE  CALCULATION. 

C 

IF  (ABS(l.OEO-RATIO) .GE.3.0E-2)  THEN 
WRITE  (2,*) 

WRITE  (2,*)  1  Count  at  termination  =  ',  K 
WRITE  (2,*)  1  Energy  ratio  =  ',  RATIO 
WRITE  (Z,*) 

GO  TO  106 
ENDIF 

103  CONTINUE 
C 

C***  OUTPUT  DATA 
C 

106  CONTINUE 
KOUNT  =  0 

DO  I  =  2,  IC0UNT/10  +  1 

IF  (ZX(10*I-9) .EQ.O.OEO)  KOUNT  =  KOUNT  +  1 
ENDDO 

WRITE  (3,9)  '  Slug  current  1 
WRITE  (3,*)  IC0UNT/10  +  1  -  KOUNT 
WRITE  (4,9)  1  Probe  voltage  ' 

WRITE  (4,*)  IC0UNT/10  +  1  -  KOUNT 
WRITE  (5,9)  '  Axial  distance  ' 

WRITE  (5,*)  I  COUNT/10  +  1  -  KOUNT 
WRITE  (6,9)  1  Load  voltage  ' 

WRITE  (6,*)  IC0UNT/10  +  1  -  KOUNT 
WRITE  (7,9)  1  Load  inductance  ' 

WRITE  (7,-)  I C0UNT/10  +  1  -  KOUNT 
WRITE  (8,9)  '  Slug  velocity  ' 

WRITE  (8,*)  IC0UNT/10  +  1  -  KOUNT 
DO  J  =  1,  IC0UNT/10  +  1  -  KOUNT 
WRITE  (3,*)  TIME(10*J-9) 

WRITE  (4,*)  TIME ( 10* J-9 ) 

WRITE  (5,*)  T I ME ( 10*0-9 ) 

WRITE  (6,*)  TIME( 10*J-9) 

WRITE  (7,*)  TIME ( 1 0* J-9 ) 

WRITE  (8,*)  TIME ( 10* J-9) 

ENOOO 

00  J  =  1,  IC0UNT/10  +  I  -  KOUNT 
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WRITE  (3,*)  CURRENT(10*J-9) 
WRITE  (4,*)  VP(10*J-9) 

WRITE  (5,*)  ZX( 10*0-9) 

WRITE  (6,*)  VL0AD(10*J-9) 
WRITE  (7,*)  LL0AD(10*J-9) 
WRITE  (8,*)  VEL(10*J-9) 
ENDDO 
GO  TO  999 
999  CONTINUE 
DO  I  =  1,  8 
CLOSE(UNIT=I) 

ENDDO 

STOP 

END 


A  typical  Input  file  (the  input  used  to  generate  in  this  dissertation)  is 
provided  for  the  CLIN  program.  All  data  is  in  SI  metric  units.  The  data  is 
input  in  two  lines  of  free  format.  The  input  file  format  is  as  follows: 

First  line  — 

first  entry  C,  system  capacitance  (in  Farads) 

second  entry  VZERO,  initial  system  voltage  (in  Volts) 

third  entry  L01,  fixed  inductance  prior  to  voltage  probe  (in  Henries) 

fourth  entry  L02,  fixed  inductance  after  voltage  probe  (in  Henries) 

fifth  entry  RES,  fixed  system  resistance  (in  Ohms) 

Second  line  — 

first  entry  RI,  coaxial  gun  inner  radius  (In  meters) 

second  entry  RO,  coaxial  gun  outer  radius  (in  meters) 

third  entry  M,  mass  of  the  plasma  sheath  (In  kilograms) 

fourth  entry  Zl,  the  initial  position  of  the  plasma  sheath  (in  meters) 


72.0E-6  6.00E+4  8.20E-9  20.8E-9  1.00E-3 

0.0651  0.0889  t.OOE-7  0.0 
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APPENDIX  C 


LISTING  OF  DATA  MANIPULATION  PROGRAM 

In  this  appendix,  a  listing  of  the  FORTRAN  source  code  for  the  data 
manipulation  program  Is  given.  This  program  Is  written  especially  for 
the  manipulation  of  digitized  data  traces  In  a  specific  format. 

Although  there  are  certainly  other,  probably  better,  computer  programs 
available  for  manipulating  and  revising  raw  data,  the  author  did  not 
have  access  to  these  codes  when  he  needed  them.  Because  he  needed  data 
manipulation  and  data  analysis  tools,  the  author  wrote  and  assembled  the 
FORTRAN  program  which  source  code  follows. 

This  code  Is  Interactive  and  menu-driven  (asking  for  specific 
keyboard  responses).  It  Is  designed  to  be  "user  friendly"  both  at  the 
interactive  user  and  at  the  programmer  level.  The  interactive  user  will 
find  many  of  the  program  and  subprogram  concepts  explained  through  the 
use  of  user  prompts.  The  programmer  will  find  embedded  program  comments 
to  show  the  logic  of  subroutines  and  of  the  program  as  a  whole.  The 
code  is  modular  so  that  sections  can  be  extracted,  revised,  deleted  and 
inserted  with  a  minimum  of  Impact  on  the  rest  of  the  program.  Through 
the  use  of  modular  code  segmentation,  the  program  has  the  potential  for 
further  expansion.  The  program  Is  not  In  a  state  of  perfection, 
however.  All  portions  of  the  program  have  been  run  and  examined  for 
correct  responses;  not  all  portions  of  the  code  have  been  extensively 
tested  and  could  contain  "bugs"  or  other  unidentified  problems.  Any 
comments  and  corrections  would  be  greatly  appreciated. 

The  data  manipulation  program  outputs  data  in  terms  of  calculated 
data  to  the  screen  and  program  generated  output  files.  Program 
generated  output  files  (with  the  exception  of  output  from  the  MAXMIN  and 
MEANY  SUBROUTINES)  are  In  the  same  format  as  the  Input  files. 

The  data  Input  and  output  files  are  in  ASCII  text.  The  user  should 

know  the  data  Input  files  must  have  the  following  format: 

(one  line)  TITLE  OF  DATA  FILE 

I 

(one  line;  a  single  Integer  N--1.LE.N.LE.1000)  N 

(many  lines)  N  ordinate  (X)  data  points;  Xj,  X2 . XN 

(many  lines)  N  abscissa  (Y)  data  points;  Y^  Y2 . Y^  ! 

(many  lines)  The  user  may  wish  to  comment  the  Input  data  file 
following  all  the  other  Input  data.  These  comments  are  optional  for 
input  data  files.  However,  these  comments  will  not  be  transferred  from  ; 

the  Input  to  the  output  file.  Except  for  the  SUBROUTINES  FUNCTION  and 
CURRENT,  comments  are  not  appended  to  any  output  files  by  the  data  ; 

manipulation  program.  ! 

The  Integer  limit  N  In  the  second  Input  data  line  may  be  changed, 
but  it  must  be  changed  uniformly  throughout  the  program.  If  this  is  not  ; 

done,  the  program  may  not  manipulate  the  data  properly.  ■ 

» 


The  program  Is  currently  hosted  on  the  AFWL/AWPP  VAX  11/780 
computer.  It  Is  written  In  FORTRAN  77,  so  It  should  be  able  to  be 
hosted  on  any  computer  having  Interactive  and  FORTRAN  77  capabilities. 

It  should  be  noted  parts  of  this  program  are  very  CPU  Intensive  and 
are  very  slow.  (SUBROUTINES  INTEGRATE  and  REVISE  that  Invoke  SUBROUTINE 
SIMP  are  especially  bad  In  this  regard.)  The  program  ca.i  use  a  great 
deal  of  CPU  (core)  time.  The  user  should  be  aware  of  this  to  avoid 
problems  with  other  users  and  computer  operators. 

The  data  manipulation  program  Is  Internally  titled  ANALYZE.  In  Its 
present  state,  the  following  SUBROUTINES  are  called: 

TRANSFORM  —  linearly  transforms  X-  and  Y-axes  of  data  traces 

FUNCTION  —  functionally  transforms  X-  and  Y-axes  of  data  traces 

ROTATE  —  rotates  X-  and  Y-axes  through  a  calculated  angle 

BASELINE  —  corrects  X-  and  Y-axes  for  baseline  slope 

FILEC  —  performs  spline  fit  of  the  Y-axis  data,  allowing  an 
Increase/decrease  In  the  number  of  data  points 

DIFFER  —  performs  a  numerical  differentiation  on  the  Y-axis 

INTEGRATE  —  performs  a  Runge-Kutta  4th  order  Integration  on  a 
spline  fit  of  the  Y-axis  data 

SUM  —  adds  the  Y-axes  of  up  to  10  data  traces  and  outputs  to 
another  file 

SUBTRACT  —  subtracts  the  Y-axis  of  one  data  file  from  the  Y-axis 
of  another  data  file  and  outputs  to  a  third  file 

MULTIPLY  —  multiplies  the  Y-axes  of  up  to  10  data  traces  and 
outputs  to  another  file 

DIVIDE  —  divides  the  Y-axis  of  one  data  file  by  the  Y-axis  of 
another  and  outputs  to  a  third  file 

AVERAGE  —  averages  the  Y-axes  of  up  to  10  data  traces  and  outputs 
to  another  data  file 

INTCOR  —  performs  RC  "droop  correction"  on  the  Y-axis 

REVISE  —  given  Input  voltage  and  current  traces,  calculates 
Inductances  and  associated  data  traces 

CURRENT  —  calculates  a  current  trace  from  an  Input  data  file 

MEANY  —  calculates  the  arithmetic  average  of  a  portion  of  the  Y- 
axls  of  a  data  trace 


i 


MAXMIN  ~  calculates  the  maxima  and  minima  from  a  data  trace,  both 
from  the  X-  and  Y-axes 

SMOOTH  --  performs  a  running  7-polnt  smoothing  on  the  Y-axis  of  a 
data  trace 

EXCHANGE  —  exchanges  the  X-  and  Y-axes  of  a  data  trace 
FOURIER  —  performs  a  Fourier  smoothing  of  the  Y-axis  of  a  data 

trace 

Additional  Importance  SUBROUTINES  not  directly  called  from  the 
ANALYZE  main  program  are: 

DDIFFER  —  performs  a  numerical  differentiation  for  the  INTCOR 
SUBROUTINE 

SIMP  —  performs  an  adaptive  Integration.  It  is  called  by 
SUBROUTINES  INTEGRATE  and  REVISE. 

SPCOEF  --  calculates  cubic  splines  for  data  files.  It  is  called  by 
the  SUBROUTINES  FILEC,  INTEGRATE,  SUM,  SUBTRACT,  MULTIPLY,  DIVIDE, 
AVERAGE,  REVISE,  SMOOTH  and  FOURIER. 


PROGRAM  ANALYZE 
CHARACTERS  ANS,  FILE 

The  ANALYZE  program  Is  a  driver  to  allow  the  analysis  of  data  from 
oscilloscope  pictures  digitized  to  a  Tektronix  plot  compatible 
format. 

Version  current  to  15  July  1987 

1  CONTINUE 
WRITE  (*,11) 

11  FORMAT  (IX, 'This  Is  the  main  menu.',//, 

1  6X,'A  —  X-  and  Y-axes  contraction/expansion  and  transformation’ 

2  ,/,6X,'B  —  X-  and  Y-axes  functional  transformation' ,/,6X, 

3  'C  —  rotation  of  the  X-  and  Y-axes  through  the  origin',/, 

4  6X,'D  —  baseline  correction', 

5  /,6X,'E  —  spline  fit  of  file  data'. 

6  /,6X,'F  —  differentiate' ,/,6X, 'G  —  ', 

7  ' Integrate' ,/,6X, 'H  —  add  up  to  10  traces' ,/,6X, ' I  —  ', 

8  'subtract  one  data  trace  from  another' ,/,6X, 

9  'J  —  multiply  up  to  10  traces' ,/,6X, 'K  —  divide  one  trace  by' 

A  ,'  another' ,/,6X, 'L  —  average  up  to  10  traces ' ,/,6X, 

B  'M  —  correction  of  trace  data  for  passive  RC  Integration  ', 

C  '"voltage  droop" ' ,/,6X, 

D  'N  —  calculate  an  Inductance  trace,  given  voltage  and  current' 
E  '  trace' ,/,6X, '0  —  calculate  current  traces ' ,/,6X, 

F  'P  —  calculate  arithmetic  average  of  a  portion  of  y-axes  of'. 


G  1  data  trace1 ,/,6X, 'Q  —  find  the  maximum  and  minimum  of  a 
H  'trace' ,/,6X, 'R  --  7  point  smoothing* ,/,6X, 'S  —  exchange  X 
I  'and  Y -axes' ,/,6X, 'T  —  Fourier  smoothing' ,/,6X, 

J  'U  (or  any  other  character  not  previously  cited)', 

K  '  —  exit  program' ,//, IX, '$  Which  option  do  you' 

L  '  want?  (Input  a  single  letter  for  the  option  you  want.)1) 
READ  (*,9)  FILE 
9  FORMAT  (A) 

IF  ( (FILE - EQ. ' A  * ) .OR . (FILE .EQ. 'a' ))  THEN 
CALL  TRANSFORM 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'B'). OR. (FILE. EQ.'b'))  THEN 
CALL  FUNCTION 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'C'). OR. (FILE. EQ.'c'))  THEN 
CALL  ROTATE 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'O'). OR. (FILE. EQ.'d'))  THEN 
CALL  BASELINE 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'E'). OR. (FILE. EQ.'e'))  THEN 
CALL  FILEC 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'F'). OR. (FILE. EQ.'f'))  THEN 
CALL  DIFFER 
GO  TO  1 
ENDIF 

IF  ((FILE- EQ.'G'). OR. (FILE. EQ.'g'))  THEN 
CALL  INTEGRATE 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'H'). OR. (FILE. EQ.'h'))  THEN 
CALL  SUM 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.T). OR. (FILE. EQ.'I'))  THEN 
CALL  SUBTRACT 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'J'). OR. (FILE. EQ.'j'))  THEN 
CALL  MULTIPLY 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.’K'). OR. (FILE. EQ.'k'))  THEN 
CALL  DIVIDE 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'L’). OR. (FILE. EQ.'I’))  THEN 
CALL  AVERAGE 


GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'M'). OR. (FILE. EQ.'m'))  THEN 
CALL  INTCOR 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'N'). OR. (FILE. EQ.'n'))  THEN 
CALL  REVISE 
GO  TO  1 
ENDIF 

IF  ((FILE.EQ. 'O' ). OR .(FILE.EQ. 'o1 ))  THEN 
CALL  CURRENT 
GO  TO  1 
ENDIF 

IF  ( (FILE.EQ. ' P * ) .OR. (FILE.EQ. ' p 1 ))  THEN 
CALL  MEANY 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'Q'). OR. (FILE. EQ.'q'))  THEN 
CALL  MAXMIN 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'R'). OR. (FILE. EQ.'r'))  THEN 
CALL  SMOOTH 
GO  TO  1 
ENDIF 

IF  ((FILE.EQ. 'S' ). OR. (FILE.EQ. 1 s ' ) )  THEN 
CALL  EXCHANGE 
GO  TO  1 
ENDIF 

IF  ((FILE.EQ. 'T'). OR. (FILE. EQ.'t’))  THEN 
CALL  FOURIER 
GO  TO  1 
ENDIF 

IF  ((FILE. EQ.'T'). OR. (FILE. EQ.'t'))  GO  TO  999 
999  WRITE  (*,50) 

50  F0RMAT(1X, '$  Do  you  want  to  end  the  program?  (Y  Oi 
READ  (*,9)  ANS 

IF  ((ANS.EQ. * Y ’ ) .OR. (ANS.EQ. ’ y ’ ) )  THEN 
WRITE  (*,51) 

51  FORMAT  (IX, '$  The  Drogram  will  terminate  now!') 
STOP 

ENDIF 
GO  TO  1 


SUBROUTINE  TRANSFORM 

DIMENSION  XOLD(IOOO) ,  XNEW(IOOO),  YOLD(IOOO),  YNEW(IOOO) 
REAL  AX,  AV,  BX,  BY,  XTEMP1,  XTEMP2,  YTEMP1,  YTEMP2 
INTEGER  MX,  MY,  N 

CHARACTER*132  TITLE,  INFILE,  OUTFILE 


oooo  oooooooooooooooooooooooo 


CHARACTER*!  ANS 


This  program  calculates  a  linear  transformation  and  expansion 
and/or  contraction  of  data  according  to  the  relations: 

XNEW(I)  =  AX  *  XOLD(I)  +  BX  -  XTEMP1  -  XTEMP2 

YNEW(I)  =  AY  *  YOLD(I)  +  BY  -  YTEMP1  -  YTEMP2 

where  AX,  AY,  BX  and  BY  are  Input  constants. 

XTEMP1  =  XOLD(MX)  If  l.LE.MX.LE.N  or 

=  0.0E0  If  MX.LT.l  or  MX.GT.N 

XTEMP2  =  XOLD(MY)  If  l.LE.MY.LE.N  or 

=  0.0E0  If  MY.LT.l  or  MY.GT.N 

YTEMP1  =  YOLD(MX)  If  l.LE.MX.LE.N  or 

=  0.0E0  If  MX.LT.l  or  MX.GT.N 

YTEMP2  =  YOLD(MY)  If  l.LE.MY.LE.N  or 

=  0.0E0  If  MY.LT.l  or  MY.GT.N 

MX  and  MY  are  Input  offsets.  N  Is  the  number  of  data  points. 

1  CONTINUE 

AX  *  1.0E0 
AY  *  1.0E0 
BX  -  0.0E0 
CY  =  0.0E0 
XTEMP1  *  0.0E0 
XTEMP2  =  0.0E0 
YTEMP1  =  0.0E0 
YTEMP2  =  O.OEO 
MX  =  0 
MY  =  0 

700  WRITE  (*,5) 

5  FORMAT  (IX, '$  Enter  file  name  to  be  linearly  transformed.') 
READ  (*,9,ERR=700)  INFILE 

701  WRITE  (*,10) 

10  FORMAT  (IX, ' $  Enter  output  file  name.') 

READ  (*,9,ERR=7Q1)  OUTFILE 

OPEN  ( UN I T=5 , ST ATUS= ' OLD 1 ,FILE=INFILE .READONLY) 

REWIND  (UNIT=5) 

OPEN  (UNIT=10,STATUS=I NEW' ,FILE=OUTFILE) 

READ  (5,9)  TITLE 
9  FORMAT  (A) 

READ  (5,  *)  N 

READ  (5,  *)  (XOLD(I),  I  =  1,  N) 

READ  (5,  *)  (YOLO(I) ,  I  =  1,  N) 

Prompt  for  Input  values  of  AX,  AY,  BX,  BY,  MX  and  MY. 

If  any  of  these  values  are  not  Input  explicitly,  the  default 
values  are  used. 


o  o  o  o  o  o 


The  default  values  are: 


AX  =  AY  =  l.OEO 


BX  =  BY  *  XTEMP1  =  XTEMP2  =  YTEMP1  =  YTEMP2  =  O.OEO. 

20  F0RMAT(1X, 'The  transformation  of  the  x-  and  y-axes  are  according' 

1  'to  the  relations' ,//,llX, 

2  'XNEW(I)  =  AX  *  XOLD(I)  +  BX  -  XTEMP1  -  XTEMP2' ,/,llX, 

3  'YNEW(I)  =  AY  *  YOLD(I)  +  BY  -  YTEMP1  -  YTEMP2' ,//,6X, 

4  'where  AX,  AY,  BX  and  BY  are  input  constants  and  XTEMP1,  ', 

5  'XTEMP2, ‘ ,/,6X, '  YTEMP1  and  YTEMP2  are  functions  of  MX  and  1 , 

6  'MY.',//,6X,'If  l.LE.MX.LE.N,  XTEMP1  =  XOLD(MX)  and  YTEMP1  =  ' 

7  ' YOLD(MX).  ',/,6X, 'Otherwise,  XTEMP1  =  YTEMP1  =  O.OEO. ' ,/,6X, 

8  'If  l.LE.MY.LE.N,  XTEMP2  =  XOLD(MY)  and  YTEMP2  =  YOLD(MY) . ' ,/, 

9  6X, 'Otherwise,  XTEMP2  =  YTEMP2  =  O.OEO.',/) 

WRITE  (*,20) 

702  WRITE  (*,21) 

21  FORMAT  (IX, '$  Do  you  want  to  input  AX?  (Y  or  N)') 

READ  (*,9,ERR=702)  ANS 

IF  ((ANS.EQ. ' Y ' ) .OR. (ANS.EQ. ' y ' ) )  THEN 

703  WRITE  (*,22) 

22  FORMAT  (IX, '$  What  is  AX?') 

READ  (*,*,ERR=703)  AX 
END  IF 

704  WRITE  (*,23) 

23  FCTMAT  (1X,'$  Do  you  want  to  input  AY?  (Y  or  N)') 

READ  (*,9,ERR=704)  ANS 

IF  ((ANS.EQ. *Y' ). OR. (ANS.EQ. ' y ' ) )  THEN 

705  WRITE  (*,24) 

24  FORMAT  (IX,' $  What  is  AY?') 

READ  (*,*,ERR=705)  AY 
ENDIF 

706  WRITE  (*,25) 

25  FORMAT  (IX, '$  Oo  you  want  to  input  BX?  (Y  or  N)') 

READ  (*,9,ERR=706)  ANS 

IF  ((ANS.EQ. 'Y' ). OR. (ANS.EQ. 'y'))  THEN 

707  WRITE  (*,26) 

26  FORMAT  (IX, '$  What  is  BX?') 

READ  (*,*,ERR=707)  BX 
ENDIF 

708  WRITE  (*,27) 

27  FORMAT  (IX, '$  Do  you  want  to  input  BY?  (Y  or  N)') 

READ  (*,9,ERR=708)  ANS 

IF  ((ANS.EQ. 'Y' ). OR. (ANS.EQ. 'y'))  THEN 

709  WRITE  (*,28) 

28  FORMAT  (IX, '$  What  is  BY?1) 

READ  (*,*,ERR=7C9)  BY 
ENDIF 

710  WRITE  (*,29) 

29  FORMAT  (IX, '$  Do  you  want  to  input  MX?  (Y  or  N)') 

READ  (*,9,ERR=710)  ANS 
IF  ((ANS.EQ. ' Y ' ). OR. (ANS.EQ. ' y ' ) )  THEN 
WRITE  (*,30) 


711 


o  o  o  o  o  o  o 


30  FORMAT  (1X,'$  What  Is  MX?') 

READ  (*,*,ERR=711)  MX 
END  IF 

712  WRITE  (*,31) 

31  FORMAT  (IX, ' $  Do  you  want  to  Input  MY?  (Y  or  N)') 

READ  (*,9,ERR=712)  ANS 

IF  ((ANS.EQ. * Y ' ) .OR. (ANS. EQ. 'y * ) )  THEN 

713  WRITE  (*,32) 

32  FORMAT  (IX, ’$  What  Is  MY?1) 

READ  (*,*,ERR=713)  MY 
ENDIF 


IF  ((MX.LT.l).OR. (MX.GT.N))  THEN 
XTEMP1  -O.OEO 
YTEMP1  =  O.OEO 
ENDIF 

IF  ((l.LE.MX).AND.(MX.LE.N))  THEN 
XTEMP1  =  XOLD(MX) 

YTEMP1  =  YOLD(MX) 

ENDIF 

IF  ((MY.LT.l).OR.(MY.GT.N))  THEN 
XTEMP2  -O.OEO 
YTEMP2  -O.OEO 
ENDIF 

IF  ((l.LE.MY).AND.(MY.LE.N))  THEN 
XTEMP2  -  XOLD(MY) 

YTEMP2  =  YOLD(MY) 

ENDIF 


Output  values  of  AX,  AY,  BX,  BY,  MX,  MY,  XTEMP1,  XTEMP2,  YTEMP1 
and  YTEMP2. 


WRITE  (*,*) 

WRITE  (*,*)  '  AX  =  ',  AX,  '  AY  =  ',  AY 

WRITE  (*,*)  1  BX  *  1 ,  BX,  '  BY  =  ' ,  BY 

WRITE  (*,*)  '  MX  =  ',  MX,  1  MY  =  ',  MY 

WRITE  (*,*)  1  XTEMP1  -  ',  XTEMP1,  '  XTEMP2  =  ',  XTEMP2 

WRITE  {*,*)  '  YTEMP1  -  ',  YTEMP1,  '  YTEMP2  =  ',  YTEMP2 

WRITE  (*,*) 

DO  250  I  =  1,  N 

XNEW(I)  =  AX  *  XOLD(I)  +  BX  -  XTEMP1  -  XTEMP2 
250  YNEW(I)  =  AY  *  YOLD(I)  +  BY  -  YTEMP1  -  YTFMP2 

WRITE  (10,9)  TITIE( 1 : 42 )// ' TRANSFORM/ 1 //TITLE ( 58: 132 ) 
WRITE  (10,  *)  N 

WRITE  (10,  *)  (XNEW(I) ,  I  -  1,  N) 

WRITE  (10,  *)  (YNEW(I),  I  =  1,  N) 

CLOSE  (UNIT-5) 

CLOSE  (UNIT-10) 

C  Query  to  see  If  more  linear  transformations  are  needed 
C 

714  WRITE  (*,35) 
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35  FORMAT  (IX, '$  Do  you  want  to  linearly  transform  any  more  data? 

1  '(Y  or  N)') 

READ  (*,9,ERR=714)  ANS 

IF  ((ANS.EQ. ' Y ' ). OR. (ANS.EQ. 1 y ' ))  GO  TO  1 

WRITE  (*,36) 

36  FORMAT  (IX, '$  Subroutine  TRANSFORM  is  ending  now.1) 

RETURN 

END 


SUBROUTINE  FUNCTION 

This  subroutine  will  functionally  transform  a  set  of  data.  In  this 
transformation,  the  X-  and  Y- arrays  are  transformed  Independently 
of  each  other. 

PLEASE  NOTE:  In  this  routine,  the  number  of  data  points  is 
limited  to  1000.  If  more  data  points  are  wanted,  the  subroutine 
and  the  driver  program  must  be  appropriately  modified. 

Additionally,  no  more  than  80  transformations  should  be  run  on  a 
single  data  file.  If  more  are  run,  the  listing  of  transformations 
(TRANSACT)  will  run  out  of  space  and  the  subroutine  might  bomb  off. 


■1 

1  YL0W,  C 

INTEGER  N,  K 

IPX 

CHARACTER*800  TRANSACT 

kv 

CHARACTER*132  INPUT,  OUTPUT 

Kv 

CHARACTER*3  ANS3 

CHARACTER* 1  ANS 

1  CONTINUE 

DO  L  =  1,  800 

I-.; 

TRANSACT(L:L)  =  '  ' 

|v*. 

ENDDO 

■v 

K  =  0 

c 

Input  file  data 

Ly  c 

K  ; 

700  WRITE  (*,11) 

11  FORMAT  (1X,'$  Enter  file  name  to  be  functionally  transformed.') 
9  FORMAT  (A) 

READ  (*,9,ERR=700)  INPUT 

OPEN  (UNIT=1 ,NAME=INPUT,TYPE« 1  OLD ' .READONLY) 

REWIND  (UNIT=1) 

701  WRITE  (*,12) 

12  FORMAT  (IX, ' $  Enter  output  file  name.') 

READ  (*,9,ERR=701)  OUTPUT 

OPEN  ( UNIT=2, NAME =OUTPUT,TYPE=' NEW' ) 

REWIND  (UNIT-1) 

READ  (1,9)  TITLE 
READ  (1,*)  N 

READ  (1,*)  (XOLD(I) ,  I  =  1,  N) 


c 

c 

c 


READ  (1,*)  (YOLD(I),  I  =  1,  N) 
DO  I  =  1,  N 
XNEW(I)  =  XOLD(I) 

YNEW(I)  =  YOLD(I) 

ENDDO 

CLOSE  (UNIT=1) 

CONTINUE 


Query  for  which  axes  to  be  transformed 


C 

C 

C 


702  WRITE  (*,13) 

13  FORMAT  (IX, '$  Do  you  want  to  transform  the  X-axis  (X),  transform' 
1  1  the  Y-axis  (Y) 1 ,/,2X, ‘or  end  the  subroutine  (E)? ' ) 

READ  (*,9,ERR=702)  ANS 
IF  ((ANS.EQ. 'X' ) .OR. (ANS.EQ. 'x' ))  GO  TO  200 
IF  ((ANS.EQ. * Y ' ) .OR. (ANS.EQ. * y 1 ) )  GO  TO  500 
IF  ((ANS.EQ. ' E 1 ). OR. (ANS.EQ. 'e' ))  GO  TO  900 
GO  TO  2 
200  CONTINUE 


Query  for  kinds  of  X-axis  transformation 


703  WRITE  (*,201) 

201  FORMAT  (IX, 'X  Functional  Transform  Menu:',/, 
add  a  constant,  X  +  C',/, 
multiply  by  a  constant,  C  *  X  (C.GT.0.0E0) 1 ,/, 
square  root,  SQRT(X)  (X.GE.O.OEO) 1 ,/, 


6X , 1 X04  —  natural  logarithm,  ALOG(X)  (X.GT.0.0E0) 1 ,/. 


1 

6X, 

'XOl  — 

2 

6X, 

'  X02  — 

3 

6X, 

•X03  — 

4 

6X, 

1 X04  — 

5 

6X, 

'  X05  — 

6 

6X, 

'X06  — 

7 

6X, 

'  X07  — 

8 

6X, 

'X08  - 

9 

6X, 

'X09  — 

1 

6X, 

'X10  — 

2 

6X, 

'Xll  — 

3 

6X, 

'  X12  -- 

4 

IX, 

'$  Whlct 

arctangent,  ATAN(X)' ,/, 


hyperbolic  tangent,  TANH(X)',/, 
take  X  to  a  power,  X**C  (X.GE.O.OEO,  C.GT.0.0E0) ' ,/, 
take  a  number  to  a  power  of  X,  C**X  (C.GT.0.0E0) ' ,/, 
end  X  transform  and  go  to  function  main  menu.',//. 


704 

202 


206  FORMAT  (IX, 'The  X  value  has  been  limited  at  I  =  ',16,' 
1  1PE16.8) 

READ  (*,9,ERR=703)  ANS3 
IF  ((ANS3.EQ. ' X01 ' ).0R.(ANS3.EQ. ' xOl ' ))  THEN 
C  *  0.0E0 
WRITE  (*,202) 

FORMAT  (1X,'$  What  Is  the  constant  C? ’ ) 

READ  (*,*,ERR=704)  C 
DO  I  =  1,  N 
XNEW(I)  =  XNEW(I)  +  C 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  X  +  C  ' 

K  =  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. ' X02 ' ).0R. (ANS3.EQ. ' x02 ' ))  THEN 
C  =  1.0E0 


to  X  = 
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705  WRITE  (*,202) 

READ  (*,*,ERR=705)  C 
IF  (C.LE.0.0E0)  THEN 
WRITE  (*,203) 

203  FORMAT  (IX, 'The  constant  C  must  be  greater  than  0.0E0.1) 
GO  TO  200 

ENDIF 

DO  I  =  1,  N 
XNEW(I)  =  C  *  XNEW(I) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  1  C  *  X  ' 

K  =  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. ' X03 ' ).0R.(ANS3.EQ. ' x03 ' ))  THEN 
DO  I  =  1,  N 

IF  (XNEW(I) .LT.O.OEO)  THEN 
WRITE  (*,204)  I,  XNEW(I) 

204  FORMAT  (IX, 'X  must  be  greater  than  or  equal  to  O.OEO.1, 

1  /,2X,‘ At  I  =  ',16,'  XNEW(I)  =  ’.1PE16.8) 

GO  TO  200 
ENDIF 
ENDDO 

DO  I  *  1,  N 

XNEW(I)  =  SQRT(XNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  1  SQRT(X)  ' 

K  *  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. 'X04‘ ) .OR. (ANS3.EQ. 'x04' ))  THEN 
DO  I  -  1,  N 

IF  (XNEW(I).LE. O.OEO)  THEN 
WRITE  (*,205)  I,  XNEW(I) 

205  FORMAT  (6X,'X  must  be  greater  than  O.OEO. ' ,/,2X, 

1  'At  I  =  ',16,'  XNEW(I)  =  ' .1PE16.8) 

GO  TO  200 
ENDIF 
ENDDO 

DO  I  =  1,  N 

XNEW(I)  =  ALOG(XNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  ALOG(X) 

K  =  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. ' X05 ' ) .OR. (ANS3.EQ. ' x05 * ))  THEN 
DO  I  =  1,  N 

IF  (XNEW(I).LE. O.OEO)  THEN 
WRITE  (*,205)  I,  XNEW(I) 

GO  TO  200 
ENDIF 
ENDDO 

DO  I  =  1,  N 
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XNEW(I)  =  AL0G10(XNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  1  ALOGIO(X)  ' 

K  *  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. * X06 ' ).0R. (ANS3.EQ. * x06 1 ))  THEN 
DO  I  =  1,  N 

IF  (XNEW(I).GE.8.289E1)  THEN 
XNEW(I)  *  8.289E1 
WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

IF  (XNEW(I) .LE.-8.289E1)  THEN 
XNEW(I)  =  -8.289E1 
WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

XNEW(I)  =  EXP ( XNEW( I ) ) 

ENDDO 

TRANSACT (10*K+1:10*K+10)  =  '  EXP(X)  1 
K  *  K  +  1 
GO  TO  200 
ENC'F 

IF  ((ANS3.EQ. ‘X071 ) .OR. (ANS3.EQ. 1 x07 1 ))  THEN 
DO  I  =  1,  N 

XNEW(I)  =  ATAN(XNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  1  ATAN(X)  1 
K  =  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. 'X081 ) .OR. (ANS3.EQ. ' x08 ' ))  THEN 
DO  I  =  1,  N 

IF  (XNEW(I) .GE.8.289E1)  THEN 
XNEW(I)  =  8.289E1 
WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

IF  (XNEW(I).LE.-8.289E1)  THEN 
XNEW(I)  =  -8.289E1 
WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

XNEW(I)  =  SINH(XNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  1  SINH(X)  ' 

K  =  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. ‘ X09 1 ) .OR. (ANS3.EQ. ' x09' ))  THEN 
DO  I  =  1,  N 

IF  (XNEW(I ) .GE.8.289E1)  THEN 
XNEW(l)  =  8.289E1 
WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

IF  (XNEW(I).LE.-3.289E1)  THEN 
XNEW(I)  =  -8.289E1 


WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

XNEW(I)  =  TANH(XNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10 )  *  '  TANH(X)  ' 

K  *  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. ' X10 ' ).0R.(ANS3.EQ. * xlO ' ))  THEN 
C  *  l.OEO 
WRITE  (*,202) 

READ  (*,*)  C 
IF  (C.LE.O.OEO)  THEN 
WRITE  (*,203) 

GO  TO  200 
ENDIF 

DO  I  *  1,  N 

IF  (XNEW(I).LT.O.OEO)  THEN 
WRITE  (*,204)  I,  XNEW(I) 

GO  TO  200 
ENDIF 
ENDDO 

DO  I  =  1,  N 

IF  (C*ALOG(XNEW(I)) .GE.8.289E1)  THEN 

XNEW(I)  =  EXP(AMIN1(8.289E1,8.289E1/C)) 

•  WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

IF  (C*AL0G(XNEW(I)).LE.-8.289E1)  THEN 

XNEW(I)  *  EXP(AMAX1(-8.289E1,-8.289E1/C)) 

WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

XNEW(I)  =  XNEW(I)**C 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  X**C 
K  *  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ.  'XU'  ).0R.(ANS3.EQ.  'xll' ))  THEN 
707  WRITE  (*,202) 

READ  (*,*,ERR*707)  C 
IF  (C.LE.O.OEO)  THEN 
WRITE  (*,203) 

GO  TO  200 
ENDIF 

DO  I  =  1,  N 
IF  (C.EQ. l.OEO)  THEN 
WRITE  (*,207) 

207  FORMAT  (lX.'The  constant  C  cannot  equal  l.OEO;', 

1  1  the  functional  relation  would  be  violated.') 

GO  TO  200 
ENDIF 

IF  (XNEW(I).GE.8.289E1/ABS(AL0G(C)))  THEN 

XNEW(I)  =  AMIN1(8.289E1,8.289E1/ABS(AL0G(C))) 

WRITE  (*,206)  I,  XNEW(I) 
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ENDIF 

IF  (XNEW(I).LE.-8.289E1/ABS(AL0G(C)))  THEN 

XNEW(I)  =  AMAX 1 ( -8 . 289E 1 , -8 . 289E 1/ABS ( ALOG( C ) ) ) 

WRITE  (*,206)  I,  XNEW(I) 

ENDIF 

250  XNEW(I)  =  C**XNEW(I) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  »  '  C**X 
K  »  K  +  1 
GO  TO  200 
ENDIF 

IF  ((ANS3.EQ. 1 X12 ' ) .OR. (ANS3.EQ. ' xl2 ' ))  GO  TO  2 
GO  TO  200 

500  CONTINUE 

Query  for  kinds  of  Y-axis  transformation 

708  WRITE  (*,501) 

501  FORMAT  (IX,1 Y  Functional  Transform  Menu:1,/, 

1  6X,'Y01  —  add  a  constant,  Y  +  C',/, 

2  6X,'Y02  —  multiply  by  a  constant,  C  *  Y',/, 

3  6X, ' Y03  —  square  root,  SQRT(Y)  (Y.GE.O.OEO) ' ,/, 

4  6X,'Y04  —  natural  logarithm,  ALOG(Y)  (Y.GT.O.OEO) ' ,/, 

5  6X,'Y05  --  common  logarithm,  ALOGIO(Y)  (Y.GT.O.OEO)',/, 

6  6X,'Y06  —  exponential,  EXP(Y)', 

7  T50, 1 Y07  -  sine,  SIN(Y)',/, 

8  6X,'Y08  —  cosine,  COS(Y)', 

9  T50,'Y09  —  tangent,  TAN(Y)',/, 

1  6X, ' Y10  --  arcsine,  ASIN(Y)  (ABS(Y).LE.l.OEO) ' ,/, 

2  6X, 1 Yll  —  arccosine,  ACOS(Y)  (ABS(Y).LE.l.OEO)' ,/, 

3  6X, ' Y12  —  arctangent,  ATAN(Y) 1 ,/, 

4  6X, 1 Y13  —  hyperbolic  sine,  SINH(Y)',/, 

5  6X,'Y14  —  hyperbolic  cosine,  COSH(Y)',/, 

6  6X,'Y15  —  hyperbolic  tangent,  TANH(Y)',/, 

7  6X, 1 Y16  —  take  Y  to  a  power,  Y**C  (Y.GE.O.OEO,  C.GT.0.0E0) ' ,/, 

8  6X, 1 Y17  --  take  a  number  to  a  power  of  Y,  C**Y  (C.GT.0.0E0) ' ,/, 

9  6X,'Y18  —  take  the  absolute  value  of  Y,  ABS(Y)',/, 

1  6X,'Y19  —  cutoff  Y  values  to  Input  upper  and  lower  limits',/, 

2  6X,'Y20  —  go  to  subdirectory  for  further  Y  function  ', 

3  'transforms',/, 

4  6X,'Y21  —  end  Y  transform  and  go  to  function  main  menu',/, 

5  IX, '$  Which  transform  do  you  want?  (Y ##)') 

509  FORMAT  (IX, 'The  Y  value  has  been  limited  at  I  =  ',16,'  to  Y  =  ', 

1  1PE16.8) 

READ  (*,9,ERR=708)  ANS3 
IF  ((ANS3.EQ. ' Y01 ' ) .OR. (ANS3.EQ. ' yOl ' ))  THEN 
C  =  0.0E0 

709  WRITE  (*,502) 

502  FORMAT  (IX, '$  What  Is  the  constant  C? ' ) 

READ  (*,*,ERR=709)  C 

DO  I  *  1,  N 

YNEW(I)  =  YNEW(I)  +  C 

ENDDO 

TRANSACT ( 1G*K+1 : 1U*K+10)  =  '  Y  +  C 
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K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 1 Y02 1 ).0R.(ANS.EQ. 1 y02 * ))  THEN 
C  »  1.0 E0 
WRITE  (*,502) 

READ  (*,*,ERR=710)  C 
IF  (C.LE.0.0E0)  THEN 
WRITE  (*,503) 

FORMAT  (IX, 'The  constant  C  must  be  greater  than  0.0E0.') 

GO  TO  500 
ENDIF 

DO  I  *  1,  N 
YNEW(I)  =  C  *  YNEW(I) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  C  *  Y  ' 

K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. * Y03 1 ).0R. (ANS3.EQ. 1 y03 ' ))  THEN 
DO  I  *  1,  N 

IF  (YNEW(I).LT.O.EO)  THEN 
WRITE  (*,504)  I,  YNEW(I) 

FORMAT  (IX,1 Y  must  be  greater  than  or  equal  to  O.OEO.',/, 
1  /,2X, 'At  I  =  ',16,'  YNEW(I)  =  ' .1PE16.8) 

GO  TO  500 
ENDIF 
ENDDO 

DO  I  =  1,  N 

YNEW(I)  =  SQRT(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  SQRT(Y)  ' 

K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. ' Y04 ' ) .OR. (ANS3.EQ. 'y04‘ ))  THEN 
DO  I  =  1,  N 

IF  (YNEW(I).LE. O.OEO)  THEN 
WRITE  (*,505)  I,  YNEW(I) 

FORMAT  (/,1X, ' Y  must  be  greater  than  O.OEO. ' ,/,2X, 

1  'At  I  =  ',16,'  YNEW(I)  =  MPE16.8) 

GO  TO  500 
ENDIF 
ENDDO 

DO  I  *  1,  N 

YNEW(I)  =  ALOG(YNEW(I)) 

ENDDO 

TRANSACT ( I0*K+1 : I0*K+10)  =  '  ALOG(Y)  ' 

K  =  K  +  1 
GO  TO  500 
ENDIF 

Ir  ((ANS2.EQ. : Y051 ) .OR. (ANS3.EQ. ' y05 ‘ ))  THEN 
DO  I  =  1,  N 

IF  (YNEW(I).LE. O.OEO)  THEN 
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WRITE  (*,505)  I,  YNEW(I) 

60  TO  500 
ENDIF 
ENODO 

DO  I  »  1,  N 

YNEW(I)  =  AL0G10(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  *  1  ALOGIO(Y)  1 
K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 1 Y061 ).0R. (ANS3.EQ. 1 y06 1 ))  THEN 
DO  I  -  1,  N 

IF  ( YNEW( I ) . GE . 8 . 289E1 )  THEN 
YNEW(I)  -  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (YNEW(I).LE.-8.289E1)  THEN 
YNEW(I)  *  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(I)  =  EXP(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10 )  -  ‘  EXP(Y)  1 
K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. ‘ Y07 1 ) .OR. (ANS3.EQ. * y07 1 ))  THEN 
DO  I  *  1,  N 
YNEW(I)  =  SIN(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  *  1  SIN(Y)  1 
K  =*  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 'Y081 ) .OR. (ANS3.EQ. 'y08' ))  THEN 
DO  I  *  1,  N 
YNEW(I)  =  COS(YNEW(I)) 

ENDDO 

TRANSACT (10*K+1:10*K+10)  =  1  COS(Y)  1 
K  -  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.E0. ' Y09 ' ).0R.(ANS3.EQ. ' y09 ’ ) )  THEN 
DO  I  *  1,  N 
YNEW(I)  =  TAN(YNEW(I)) 

ENDDO  ,  , 

TRANSACT ( 10*K+1 : 10*K+10)  =  1  TAN(Y) 

K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. ' Y10 ' ) .OR. (ANS3.EQ. 1 ylO 1 ) )  THEN 
DO  I  =  1,  N 

IF  (ABS(YNEW(I)).GT.1.0E0)  THEN 
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WRITE  (*,506)  I,  YNEW(I) 

FORMAT  (1X,*ABS(Y)  must  be  less  than  or  equal  to  1.0E0.1,/, 
L  2X,  'At  I  =  ',16,'  YNEW(I)  =  MPE16.8) 

GO  TO  500 
ENOIF 
ENDDO 

DO  I  =  1,  N 

YNEW(I)  =  ASIN(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  ASIN(Y)  1 
K  =  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 1 Yll 1 ).0R. (ANS3.EQ. * yll * ) )  THEN 
DO  I  =  1,  N 

IF  (ABS(YNEW(I)).GT.1.0E0)  THEN 
WRITE  (*,506)  I,  YNEW(I) 

GO  TO  500 
ENDIF 
ENDDO 

DO  I  =  1,  N 

YNEW(I)  =  ACOS(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  ACOS(Y)  ' 

K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 1 Y12 1 ) .OR. (ANS3.EQ. ’ yl2 1 ))  THEN 
DO  I  =  1,  N 

IF  (YNEW(I).GE.1.0E36)  THEN 
YNEW(I)  *  1.0E36 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (YNEW(I) .LE.-1.0E36)  THEN 
YNEW(I)  =  -1.0E36 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(I)  =  ATAN(YNEW(I)) 

ENDDO 

TRANSACT (10*K+1:10*K+10)  =  '  ATAN(Y)  ' 

K  =  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 'Y13' ).0R.(ANS3.EQ. *yl3 ' ) )  THEN 
DO  I  -  1,  N 

IF  (YNEW(I) .GE.8.289E1)  THEN 
YNEW(I)  =»  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  ( YNEW( I ) . LE . -8 . 289E 1 )  THEN 
YNEW(I)  =  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(I)  =  SINH(YNEW(I)) 
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TRANSACT ( 10*K+1 : 10*K+10)  =  '  SINH(Y)  ' 

K  «  K  +  1 
GO  TO  500 
ENDIF 

IF  ( (ANS3.EQ. 1 Y14* ) .OR. (ANS3.EQ. ' yl4 1 ) )  THEN 
DO  I  «  i,  N 

IF  (YNEW(I).GT.8.289E1)  THEN 
YNEW(I)  *  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (YNEW(I).LT.-8.289E1)  THEN 
YNEW(I)  =  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(I)  =  C0SH(YNEW(I)) 

ENDDO 

TRANSACT(10*K+1:10*K+10)  =  '  COSH(Y)  1 
K  =  K  +  1 
GO  TO  500 
ENDIF 

IF  ( (ANS3.EQ. 'Y15' ).0R.(ANS3.EQ. 1 yl5 ' ))  THEN 
DO  I  -  1,  N 

IF  (YNEW(I) .GE.8.289E1)  THEN 
YNEW(I)  =  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (YNEW(I).LE.-8.289E1)  THEN 
YNEW(I)  =  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(I)  »  TANH(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10 )  =  '  TANH(Y)  1 
K  *  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. ' Y16 1 ).0R.(ANS3.EQ. 'yl6' ))  THEN 
C  =  l.OEO 
WRITE  (*,502) 

READ  (*,*,ERR=711)  C 
IF  (C.LE.O.OEO)  THEN 
WRITE  (*,503) 

GO  TO  500 
ENDIF 

DO  I  *  1,  N 

IF  (YNEW(I).LT.O.OEO)  THEN 
WRITE  (*,504)  I,  YNEW(I) 

GO  TO  500 
ENDIF 
ENDDO 

DO  I  =  1,  N 

IF  (C*AL0G(YNEW(I)).GE.8.289E1)  THEN 

YNEW(I)  -  EXP(AMIN1(8.289E1,8.289E1/C)) 


WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (C*AL0G(YNEW(I)).LE.-8.289E1)  THEN 

YNEW(I)  *  EXP(AMAX1(-8.289E1,-8.289E1/C)) 

WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(i)  «  YNEW(I)**C 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10 )  *  '  Y**C  ' 

K  =  K  +  1 
60  TO  500 
ENDIF 

IF  ((ANS3.EQ. 1 Y17 1 ) .OR. (ANS3.EQ. 'yl7‘ ))  THEN 
712  WRITE  (*,502) 

READ  (*,*,ERR=712)  C 
IF  (C.LE.O.OEO)  THEN 
WRITE  (*,503) 

GO  TO  500 
ENDIF 

DO  I  =  1,  N 

IF  (C.EQ.l.OEO)  YNEW(I)  =  l.OEO 
IF  (YNEW(I).GE.8.289E1/ABS(AL0G(C)))  THEN 

YNEW(I)  *  AMIN1(8.289E1,8.289E1/ABS(AL0G(C))) 

WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  ( YNEW( I ) . LE . -8 . 289E 1/ABS( ALOG ( C ) ) )  THEN 

YNEW(I)  *  AMAX1(-8.289E1,-8.289E1/ABS(AL0G(C))) 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

550  YNEW(I)  =  C**YNEW(I) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  C**Y 
K  =  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. ' Y18' ).0R.(ANS3.EQ. 1 yl8 1 ))  THEN 
DO  I  -  1,  N 
YNEW(I)  =  ABS(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  ABS(Y)  ' 

K  =  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. ' Y19 1 ).0R. (ANS3.EQ. ' yl9 ' ))  THEN 
YHIGH  *  1.0E36 
YLOW  *  -1.0E36 
WRITE  (*,507) 

507  FORMAT  (lX.'What  Is  the  upper  limit  of  the  Y  values?') 
READ  (*,*)  YHIGH 

WRITE  (*,508) 

508  FORMAT  (lX.'What  is  the  lower  limit  of  the  Y  values?') 
READ  (*,*)  YLOW 

DO  I  =  1,  N 

IF  (YNEW(I).GT. YHIGH)  YNEW(I)  =  YHIGH 
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IF  (YNEW(I).LT.YLOW)  YNEW(I)  *  YLOW 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  -  '  limited  Y  1 
K  -  K  +  1 
GO  TO  500 
ENDIF 

IF  ((ANS3.EQ. 'Y21' ).0R.(ANS3.EQ. 1 y 2 1  * ) )  GO  TO  2 
IF  ((ANS3.EQ. 1 Y20 1 ).0R.(ANS3.EQ. 'y20‘ ))  THEN 
713  WRITE  (*,519) 

READ  (*,9,ERR=713)  ANS3 
GO  TO  570 
ENDIF 

560  CONTINUE 

WRITE  (*,519) 

READ  (*,9)  ANS3 
570  CONTINUE 

519  FORMAT  (IX, ' Y  Functional  Transform  Subdirectory  Menu:1,/, 


1  6X,'Y 22  —  logarithm  of  Y  to  the  base  C,  LOG-sub  C-(Y)',/, 

2  6X, 1 Y23  —  secant  of  Y,  SEC(Y)',/, 

3  6X, ' Y24  —  cosecant  of  Y,  CSC(Y)',/, 

4  6X,'Y25  —  cotangent  of  Y,  CTN(Y) 1 ,/, 

5  6X, ' Y26  --  arcsecant  of  Y,  ARCSEC(Y) ' ,/, 

6  6X, 1 Y27  —  arccosecant  of  Y,  ARCCSC(Y)' ,/, 

7  6X,'Y28  —  arccotangent  of  Y,  ARCCTN(Y) 1 ,/, 

8  6X, ' Y29  --  hyperbolic  secant  of  Y,  SECH(Y)',/, 

9  6X, 1 Y30  --  hyperbolic  cosecant  of  Y,  CSCH(Y)',/, 

1  6X, ' Y31  ~  hyperbolic  cotangent  of  Y,  CTNH(Y)' ,/, 

2  6X, 1 Y32  --  hyperbolic  arcsine  of  Y',/, 

3  6X, ' Y33  --  hyperbolic  arccosine  of  Y',/, 

4  6X,'Y34  --  hyperbolic  arctangent  of  Y ' ,/, 

5  6X,'Y35  --  hyperbolic  arcsecant  of  Y',/, 

6  6X,'Y36  ~  hyperbolic  arccosecant  of  Y',/, 

7  6X, ' Y37  --  hyperbolic  arccotangent  of  Y’,/, 

8  6X,'Y38  —  return  to  main  Y  transform  menu',/, 

9  IX, '$  Which  transform  do  you  want?  (Y##)') 

IF  ((ANS3.EQ. * Y22 1 ) .OR. (ANS3.EQ. 1 y22 1 ))  THEN 

714  WRITE  (*,510) 

510  FORMAT  (IX, '$  What  Is  the  base  of  the  logarithm  you  wish  to  ' 
1  'transform  Y  with?') 

READ  (*,*,ERR»714)  C 


IF  (C.LE.0.0E0)  THEN 
WRITE  (*,203) 

GO  TO  560 
ENDIF 

IF  (C.EQ.1.0E0)  THEN 
WRITE  (*,512) 

512  FORMAT  (IX, 'C.EQ.1.0E0;  C  has  been  set  to  EXP(l.OEO)') 


C  -  EXP(l.OEO) 

ENDIF 

DO  I  -  1,  N 

IF  (YNEW(I).LE.O.OEO)  THEN 
WRITE  (*,505)  I,  YNEW(I) 
GO  TO  560 
ENDIF 


"  **  *  w  « warned  pu  w  rw  iruw  irvwirnrjwv'..v  rj*  v*  /v»  ^jc.tjc  n*  7\jfnjr*vif*jr"  v^inr  vr  y*  w  yTrywVwvVV^^wVVVV’VVv 


ENDOO 

00  I  -  1,  N 

YNEW(I)  -  AL0G(YNEW(I))/AL0G(C) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  -  'LOG-C-(Y)  ' 

K  -  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. 1 Y23 ' ).0R.(ANS3.EQ. 1 y23 1 ))  THEN 
DO  I  =  1,  N 

IF  (ABS(C0S(YNEW(I))).LE.1.0E-36)  THEN 
YNEW(I)  =  SIGN(1.0E36,C0S(YNEW(I))) 

IF  (COS(YNEW(I)).EQ.O.OEO)  YNEW(I)  =  1.0E36 
GO  TO  571 
ENDIF 

YNEW(I)  =  1.0E0/C0$(YNEW(I)) 

CONTINUE 

ENDDO 

TRANSACT(10*K+1: 10*K+10)  =  '  SEC(Y)  ' 

K  »  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. 'Y24').0R.(ANS3.EQ. 1 y24 1 ) )  THEN 
DO  I  -  1,  N 

IF  (ABS(SIN(YNEW(I))).LE. 1.0E-36)  THEN 
YNEW(I)  =  SIGN(1.0E36,SIN(YNEW(I))) 

IF  (SIN(YNEW(I)).EQ.O.OEO)  YNEW(I)  =  1.0E36 
GO  TO  572 
ENDIF 

YNEW(I)  =  1 . 0E0/$IN(YNEW( I ) ) 

CONTINUE 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  '  CSC(Y)  1 
K  =  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. 1 Y25 ' ) .OR. (ANS3.EQ. ' y25 ' ))  THEN 
DO  I  *  1,  N 

IF  (ABS(TAN(YNEW(I))) .LE.l.OE-36)  THEN 
YNEW(I)  =  SIGN( 1 . 0E36 , TAN( YNE W( I ) ) ) 

IF  (TAN(YNEW(I)) .EQ.O.OEO)  YNEW(I)  =  1.0E36 
GO  TO  573 
ENDIF 

YNEW(I)  =  1.0E0/TAN( YNEW(I)) 

CONTINUE 

ENDDO 

TRANSACT (10*K+1:10*K+10)  *  '  CTN(Y)  ' 

K  *  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. 1 Y261 ) .OR. (ANS3.EQ. * y26 ' ))  THEN 
DO  I  =  1,  N 

IF  (ABS(YNEW(I)).LT.1.0E0)  THEN 
WRITE  (*,511)  I,  YNEW(I) 
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GO  TO  560 
ENDIF 
ENDOO 

DO  I  -  1,  N 

IF  (YNEW(I).GE.O.OEO)  TEMP  =»  l.OEO 
IF  (YNEW(I).LT.O.OEO)  TEMP  *  -l.OEO 
YNEW(I)  *  ACOS( 1 . OEO/YN£W( I ) )  *  TEMP 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  -  'ARCSEC(Y)  1 
K  ■  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. !Y27' ).0R.(ANS3.EQ. 'y27‘ ))  THEN 
DO  I  »  1,  N 

IF  (ABS(YNEW(I)).LT.1.0E0)  THEN 
WRITE  (*,511)  I,  YNEW(I) 

GO  TO  560 

ENDIF 

ENDDO 

DO  I  *  1,  N 

IF  (YNEW(I) .GE.O.QEO)  YNEW(I)  =  ASIN(1.0E0/YNEW(I)) 

IF  (YNEW(I).LT.O.OEO)  THEN 

YNEW(I)  =  -4.0E0  *  ATAN(l.OEO)  -  ASIN(1.0E0/YNEW(I)) 
ENDIF 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  *  'ARCCSC(Y)  1 
K  =  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. 1 Y28 ' ).0R.(ANS3.EQ. ' y28 * ))  THEN 
DO  I  »  1,  N 

YNEW(I)  =  2.0E0  *  ATAN( l.OEO)  -  ATAN(YNEW(I)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  ' ARCCTN(Y)  ’ 

K  »  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y29 1 ) .OR. (ANS3.EQ. 'y29‘ ))  THEN 
DO  I  *  1,  N 

IF  (YNEW(I).GE.8.289E1)  THEN 
YNEW(I)  *  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  ( YNEW( I ) . LE . -8. 289E  THEN 

YNEW(I)  =  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

YNEW(I)  =  1 . 0E0/C0SH( YNEW( I ) ) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10 )  =  ’  SECH(Y)  1 
K  *  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y30 ' ) .OR. (ANS3.EQ. ' y30 * ))  THEN 
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DO  I  »  1,  N 

IF  (YNEW(I) .GE.8.289E1)  THEN 
YNEW(I)  =  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (YNEW(I).LE.-8.289E1)  THEN 
YNEW(I)  -  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (ABS(SINH(YNEW(I))) .LE.1.0E-36)  THEN 
YNEW(I)  =  SIGN(1.0E-36,SINH(YNEW(I))) 

IF  (SINH(YNEW(I)) .EQ.O.OEO)  YNEW(I)  =  1.0E-36 
GO  TO  574 
ENDIF 

YNEW(I)  =  1 .OEO/SINH( YNEW( I ) ) 

CONTINUE 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  'CSCH(Y)  1 
K  -  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y31 1 ) .OR. (ANS3.EQ. 'y31‘ ))  THEN 
DO  I  -  1,  N 

IF  (YNEW(I) .GE.8.289E1)  THEN 
YNEW(I)  =  8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (YNEW(I).LE.-8.289E1)  THEN 
YNEW(I)  =  -8.289E1 
WRITE  (*,509)  I,  YNEW(I) 

ENDIF 

IF  (ABS(TANH(YNEW(I))) .LE.I.OE-36)  THEN 
YNEW(I)  =  SIGN( 1 . 0E-36,TANH( YNEW( I ) ) ) 

IF  (TANH(YNEW(I)). EQ.O.OEO)  YNEW\I)  =  1.0E-36 
GO  TO  575 
ENDIF 

YNEW(I)  =  1 .OEO/TANH( YNEW( I ) ) 

CONTINUE 

ENDDO 

TRANSACT ( 10*K+1 : 1U*K+10)  =  '  COTH(Y)  ' 

K  =  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y32 ' ).0R.(ANS3.EQ. * y32 ' ))  THEN 
DO  I  *  1,  N 

IF  (ABS(YNEW( I)) .GE. 1.0E18)  YNEW(I)  =  SIGN(1.0E18,YNEW(I)) 

IF  (ABS(YNEW(I)).LE.1.0E-18)  YNEW(I)  =  SIGN(1.0E-18,YNEW(I)) 
YNEW(I)  =  ALOG(YNEW(I)  +  SQPT(YNEW( I )**2  +  l.OEO)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  ' ARCSINH(Y) ’ 

K  =  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. 1 Y33* ) .OR. (ANS3.EQ. ' y33 ' ))  THEN 
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DO  I  *  1,  N 

IF  (YNEW(I).LT.l.OEO)  THEN 
WRITE  (*,511)  I,  YNEW(I) 

511  FORMAT  (IX, ' Y  must  be  greater  than  or  equal  to  l.OEO. 1 ,/,2X, 

1  'At  I  -  ' ,16, '  YNEW(I)  =  ',1PE16.8) 

GO  TO  560 
END  IF 
ENDDO 

DO  I  =  1,  N 

IF  (ABS(YNEW(I)).GE.1.0E18)  YNEW(I)  =  SIGN(1.0E18,YNEW(I)) 
YNEW(I)  *  AL0G(YN£W(I)  +  SQRT(YNEW(I)**2  -  l.OEO)) 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  'ARCCOSH(Y)’ 

K  *  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y34 ' ) .OR. (ANS3.EQ. ' y34 ' ))  THEN 
DO  I  =■  1,  N 

IF  (ABS(YNEW(I)).GE. l.OEO)  THEN 
WRITE  (*,515)  I,  YNEW(I) 

515  FORMAT  (1X,'ABS(Y)  must  be  less  than  l.OEO.',/, 

1  2X, ' At  I  =  ',16,'  YNEW(I)  =  ’.1PE16.8) 

GO  TO  560 
ENDIF 

YNEW(I)  =  0.5E0  *  ( ALOG( 1 . OEO+YNEW( I ) ) -ALOG( 1 . OEO-YNEW( I ) ) ) 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  'ARCTANH(Y) 1 
K  *  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y35 ' ) .OR. (ANS3.EQ. 'y35‘ ))  THEN 
DO  I  =  1,  N 

IF  (YNEW(I).LE.O.OEO)  THEN 
WRITE  (*,505)  I,  YNEW(I) 

GO  TO  560 
ENDIF 

IF  (YNEW(I).GT. l.OEO)  THEN 
WRITE  (*,516)  I,  YNEW(I) 

516  FORMAT  (IX, 'Y  must  be  less  than  or  equal  to  l.OEO. ' ,/,2X, 

1  'At  I  -  ',16,'  YNEW(I)  =  ’,1PE16.8) 

GO  TO  560 
ENDIF 
ENDDO 

DO  I  =  1,  N 

IF  (ABS(YNEW(I)) .LE. 1.0E-18)  YNEW(I)  =  SIGN(1.0E-18,YNEW(I)) 
IF  (ABS(YNEW(I)).LE.1.0E18)  YNEW(I)  =  SIGN( 1 . OE 18 , YNEW( I ) ) 
YNEW(I)  =  ALOG( 1 . OEO/YNEW( I )+SQRT ( ( 1 . OEO/YNEW( I )**2)-l . OEO) ) 
ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  'ARCSECH(Y)’ 

K  =  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y36 1 ) .OR. (ANS3.EQ. 1 y36 1 ))  THEN 
DO  I  =  1,  N 
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IF  (ABS(YNEW(I)).LT.1.0E-18)  THEN 
YNEW(I)  =  SIGN( 1 . OE-18 , YNEW( I ) ) 

IF  (YNEW(I).EQ.O.OEO)  YNEW(I)  =  1. OE-18 
ENDIF 

IF  (ABS(YNEW( I ) ) .GE . 1 .0E18)  YNEW(I)  =  SIGN(1.0E18,YNEW(I)) 
YNEW(I)  =  ALOG ( 1 . 0E0/YNEW( I ) 

+SIGN(1 .0E0, YNEW( I ) )*SQRT ( ( 1 . 0E0/YNEW( I )**2  +  1.0E0))) 

ENODO 

TRANSACT (10*K+1:10*K+10)  *  'ARCCSCH(Y)' 

K  -  K  +  1 


GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. * Y37 1 ).0R.(ANS3.EQ. 1 y37 1 ) )  THEN 
DO  I  *  1,  N 

IF  (ABS(YNEW(I)) .LE.l.OEO)  THEN 
WRITE  (*,511)  I,  YNEW(I) 

GO  TO  560 
ENDIF 
ENDDO 

DO  I  *  1,  N 

IF  (YNEW(I).GT.O.OEO)  THEN 

YNEW(I)  *  AL0G(1 . OEO+SQRT(YNEW( I )**2+l .OEO) )-ALOG( YNEW( I ) ) 
ENDIF 

IF  (YNEW(I).LT.O.OEO)  THEN 
YNEW(I)= 

1  ( 1 .OEO/YNEW( I )-SQRT( YNEW( I )**2+l . OEO)/YNEW( I ) ) 

ENDIF 

ENDDO 

TRANSACT ( 10*K+1 : 10*K+10)  =  ' ARCCTNH(Y) 1 
K  =  K  +  1 
GO  TO  560 
ENDIF 

IF  ((ANS3.EQ. ' Y38 ' ).0R.(ANS3.EQ. ' y38 1 ))  GO  TO  500 
GO  TO  560 


Query  for  more  transformations 

900  CONTINUE 

715  WRITE  (*,901) 

901  FORMAT  (IX, ' $  Do  you  want  to  transform  any  more  of  this  file?', 

1  1  (Y  or  N)1) 

READ  (*,9,ERR=715)  ANS 

IF  ((ANS.EQ. * Y 1 ).OR.(ANS.EQ. * y * ))  GO  TO  2 

Output  the  transformed  data 

WRITE  (2,9)  TITLE(l;52)//'FUNCTI0N/'//TITLE(62: 132) 

WRITE  (2,*)  N 

WRITE  (2,*)  (XNEW(I),  I  -  1,  N) 

WRITE  (2,*)  (YNEW(I),  I  =  1,  N) 

DO  J  =  1,  10 

WRITE  (2,9)  TRANSACT (80*J-79 : 80* J) 

ENODO 

CLOSE  (UNIT=2) 


OOOOOOOOOOOOOOOOOO  <">00000000000000000  I  I  ooo 


Query  for  transformations  of  other  files 
716  WRITE  (*,902) 

902  FORMAT  (1X,'$  Do  you  want  to  transform  any  other  files?  (Y  or  N)') 
READ  (*,9,ERR=716)  ANS 

IF  ((ANS.EQ. 1 Y ' ).0R.(ANS.EQ. 'y1 ))  GO  TO  1 
WRITE  (*,903) 

903  FORMAT  (IX, ’$  Subroutine  FUNCTION  is  ending  now.') 

RETURN 

END 


SUBROUTINE  ROTATE 

This  subroutine  rotates  a  data  array  (in  plot  compatible  format) 
through  the  origin  and  places  this  data  into  another  data  array. 
The  format  for  these  arrays  is  given  below: 

line  1  —  title  of  data  file 

line  2  --  number  of  data  points  N  (free  *  format) 
line  3  -  J  —  data  arrays  (free  *  format) 

First,  x  data  arrays  X(l),  X(2) . X(N),  then 

y  data  arrays  Y(l),  Y(2),  ....  Y(N). 

NOTE:  The  condition  X(1)<X(2)<  .  .  .  <X(N)  must  hold  and  should 
NOT  be  changed! 

The  rotation  correction  becomes 

M  =  least  squares  fit  of  the  slope  of  the  input  linear 
portion  of  the  data  trace 

THETA  *  angle  of  rotation  through  origin  *  DATAN(M) 
XNEW(I)  =  XOLD(I)  *  COS(THETA)  +  YOLD(I)  *  SIN(THETA) 
YNEW(I)  =  -XOLD(I)  *  SIN(THETA)  +  YOLD(I)  *  COS  (THETA) 


The  subroutine  will  be  halted  in  the  case  of  Invalid  data, 
l.e.  when  any  of  the  following  conditions  exists: 

for  invalid  Input  data— 

XLO  .GE.  XHI  or 
XLO  .LE.  X0LD(1)  or 
XHI  .GE.  XOLD(N) 

for  invalid  derived  data— 
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C  As  the  subroutine  Is  now  configured,  the  subroutine  Is  limited  to 

C  a  maximum  of  1000  data  points.  If  a  larger  number  of  data  points 

C  Is  required,  this  subroutine  must  be  appropriately  modified. 

C 

DIMENSION  XOLD(IOOO),  XNEW(IOOO),  YOLD(IOOO),  YNEW(IOOO) 

DOUBLE  PRECISION  M,  NUMBER,  SUMX,  SUMX2 ,  SUMXY,  SUMY,  THETA 
DOUBLE  PRECISION  PI,  XSCALE,  YSCALE,  XMIN,  XMAX,  YMIN,  YMAX 
REAL  XHI ,  XLO 
INTEGER  IDEL,  IHI,  ILO 

CHARACTER*132  INNAME,  OUTNAME,  TITLE,  TITLENEW 
CHARACTERS  ANS 
1  CONTINUE 

700  WRITE  (*,  15) 

15  FORMAT  (IX, '$  Enter  file  name  to  be  rotated.') 

READ  (*,9,ERR=700)  INNAME 

701  WRITE  (*,25) 

25  FORMAT  (IX, '$  Enter  rotated  output  file  name.1) 

READ  (*,9,ERR=701)  OUTNAME 

OPEN  (UNIT=5,  STATUS*' OLD', FILE=INNAME, READONLY) 

REWIND  (UNIT=5) 

OPEN  (UNIT=10,  STATUS* 'NEW' ,FILE=OUTNAME)  i 

READ  (5,9)  TITLE  l 

9  FORMAT  (A)  ; 

TITLENEW  *  TITLE (1:60)//' ROTATED/ ' //TITLE (69: 132 )  \ 

READ  (5,*)  N 
C 

C  Check  for  an  appropriate  number  of  data  points. 

C 

IF  (N.GT.1000)  THEN 
N  *  1000 
WRITE  (*,10) 

10  FORMAT  (5X, 'Number  of  data  points  has  been  limited  to  1000.') 

ENDIF 

IF  (N.LE.3)  THEN 
WRITE  (*,20) 

20  FORMAT  (5X, 'Number  of  data  points  Is  too  small. ' ,/,5X, 

1  'The  subroutine  Is  now  being  halted.') 

GO  TO  1 
ENDIF 

702  WRITE  (*,35) 

35  FORMAT  (IX, '$  Input  lower  value  of  baseline  x-value. ',/, 

1  IX, 'This  value  corresponds  to  first  x-value  of  baseline.') 

READ  (*,*,ERR=702)  XLO 

703  WRITE  (*,45) 

45  FORMAT  (IX, '$  Input  upper  value  of  baseline  x-value.1,/, 

1  IX, 'This  value  corresponds  to  last  x-value  of  baseline.') 

READ  (*,*,ERR=703)  XHI 
READ  (5,*)  (XOLD(I),  I  =  1,  N) 

READ  (5,*)  (YOLD(I) ,  I  =  1,  N) 

C 

C  Check  for  valid  limits  on  the  subroutine  values. 

C 
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IF  ((XLO.GT.XHI).OR. (XL0.LT.X0LD(1)).0R. (XHI .GT.XOLD(N)))  THEN 
WRITE  (*,30) 

FORMAT  (5X,'The  limits  on  the  baseline  are  Invalid. ' ,/,5X, 

L  'The  subroutine  is  now  being  halted.') 

WRITE  (*,40)  XLO,  XHI 

FORMAT  (5X,'XL0  *  ' ,1PE15.8,5X, 'XHI  -  ' ,1PE15.8) 

WRITE  (*,50)  XOLO(l),  XOLD(N) 

FORMAT  (5X, 'X(l)  =  ' ,1PE15.8,5X, *X(N)  =  '.1PE15.8) 

GO  TO  999 
ENOIF 

Sort  throughout  the  XOLD  array  to  find  the  values  of  ILO  and  IHI 
DO  I  -  2,  N 

XXL1  =  XLO  -  XOLD (I  -  1) 

XXLO  «  XOLD(I)  -  XLO 
IF  (XXL1.EQ.0.0E0)  ILO  =  MAXO(l.I-l) 

IF  (XXLO.EQ.O.OEO)  ILO  -  I 
IF  ( XXL 1*XXL0 . GT . 0 . OEO )  THEN 

IF  (ABS(XXLl).LE.ABS(XXLO))  ILO  *1-1 
IF  (ABS(XXLl) .GT.ABS(XXLO))  ILO  =  I 
ENDIF 
ENDDO 

DO  I  *  2,  N 

XXL1  =  XHI  -  XOLD (I  -  1) 

XXHI  *  XOLD(I)  -  XHI 
IF  (XXL1.EQ.0.0E0)  IHI  -  I  -  1 
IF  (XXHI. EQ.O. OEO)  IHI  -  I 
IF  (XXL1*XXHI.GT.0.0E0)  THEN 

IF  (ABS(XXLl) .LT.ABS(XXHI))  IHI  *1-1 
IF  (ABS(XXLl).GE.ABS(XXHI))  IHI  *  I 
ENDIF 
ENDDO 

IF  ((IHI-ILO).LT.l)  THEN 
WRITE  (*,30) 

WRITE  (*,60)  ILO,  IHI 

FORMAT  (5X, 1 ILO  *  ' ,I8,10X, ' IHI  *  ',18) 

GO  TO  999 
ENDIF 

Scale  and  transform  axes  for  calculation 

XMIN  *  DBLE(X0LD(1)) 

XMAX  -  DBLE(X0LD(1)) 

YMIN  =■  DBLE(X0LD(1)) 

YMAX  =  DBLE(X0LD(1)) 

DO  I  =  1,  N 

XMIN  =  0MIN1(DBLE(X0LD(I)),XMIN) 

XMAX  -  DMAX 1 ( DBLE ( XOLD ( I ) ) , XMAX ) 

YMIN  -  DMIN1(DBLE(Y0LD(I)),YMIN) 

YMAX  =  DMAX1(DBLE(Y0LD(I)),YMAX) 

ENDDO 
XSCALE 
YSCALE 


XMAX  -  XMIN 
YMAX  -  YMIN 


m 


ooo  ooo  ooo  ooo 


DO  I  -  1,  N 

XOLD(I)  *  X0LD( I )/XSCALE 
YOLD(I)  *  YOLD(I)/YSCALE 
ENDDO 

Calculate  the  slope  and  angle  of  rotation 

IDEL  =  IHI  -  ILO  +  1 
NUMBER  *  DBLE(IDEL) 

SUMX  *  0.0D0 

SUMX2  =0.000 

SUMXY  =  0.0D0 

SUMY  *  0.0D0 

DO  550  I  =  ILO,  IHI 

SUMX  =  SUMX  +  DBLE(XOLD(I)) 

SUMX2  =  SUMX2  +  DBLE(X0LD(I))**2 

SUMXY  *  SUMXY  +  DBLE(XOLD(I))  *  DBLE(Y0LD(I)) 

550  SUMY  =  SUMY  +  DBLE( Y0LD( I ) ) 

M  =  ((NUMBER  *  SUMXY)  -  (SUMX  *  SUMY))/ 

1  ((NUM8ER  *  SUMX2 )  -  (SUMX**2)) 

THETA  =  DATAN(-M) 

PI  =*  4 . 0D0*DAT AN ( 1 . 0D0 ) 

DO  I  -  1,  4 

IF  (THETA. 6E. PI/2. 0D0)  THETA  =  THETA  -  PI 

IF  (THETA.LT. -PI/2. 000)  THETA  =  THETA  +  PI 

IF  ((THETA. GE. -PI/2. 0D0). AND. (THETA.LT. PI/2. ODD))  GO  TO  551 

ENDDO 

551  CONTINUE 

Calculate  the  rotated  X-  and  Y- values 
DO  I  -  1,  N 

TEMP  =  DBLE(X0LD( I ) )*0C0S(THETA)  +  DBLE(Y0LD( I ) )*DSIN(THETA) 
XNEW(I)  =  SNGL(TEMP) 

ENDDO 

DO  I  -  1,  N 

TEMP  =  -DBLE(X0LD( I ) )*DSIN(THETA)  +  DBLE(YOLD(I))*DCOS(THETA) 
YNEW(I)  =  SNGL(TEMP) 

ENDDO 

Rescale  axes  for  output 
DO  I  «  1,  N 

XNEW(I)  =  SNGL ( DBLE ( XOLD ( I ) )  *  XSCALE) 

YNEW(I)  *  SNGL ( DBLE ( YOLD( I ) )  *  YSCALE) 

ENDDO 

Output  the  rotation  corrected  data  file. 

WRTTP  (* 

WRITE  (*’,*)  1  SLOPE  *  ' ,  M 

WRITE  (*,*)  1  ANGLE  (In  radians)  =  -THETA 

WRITE  (*,*) 

WRITE  (10,9)  TITLENEW 


oooooooooooooooooooooooooooooooooo 


WRITE  (10,*)  N 

WRITE  (10,*)  (XNEW(I),  I  -  1,  N) 

WRITE  (10,*)  (YNEW(I),  I  *  1,  N) 

999  CONTINUE 

CLOSE  (UNIT  -  5) 

CLOSE  (UNIT  -  10) 

704  WRITE  (*,105) 

105  FORMAT  (IX,1 $  Do  you  want  to  perform  any  more  rotation  ', 
1  'corrections?  (Y  or  N)') 

READ  (*,9,ERR-704)  ANS 
IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  GO  TO  1 
WRITE  (*,115) 

115  FORMAT  (IX,' Subroutine  ROTATE  Is  ending  now.') 

RETURN 

END 


SUBROUTINE  BASELINE 

This  subroutine  subtracts  a  linear  baseline  from  a  data  array 
(In  plot  compatible  format)  and  places  this  data  Into  another 
data  array.  The  format  for  these  arrays  are  given  below: 

line  1  --  title  of  data  file 

line  2  ~  number  of  data  points  N  (free  *  format) 

line  3  -  J  —  data  arrays  (free  *  format) 

First,  x  data  arrays  X(l),  X(2),  .  .  .  ,  X(N),  then 

y  data  arrays  Y(l),  Y(2),  .  .  .  ,  Y(N). 

NOTE:  The  condition  X(1)<X(2)<  .  .  .  <X(N)  must  hold  and  should 
NOT  be  changed! 

This  subroutine  has  been  revised  to  allow  for  two  options  in 
subtracting  baseline  corrections  from  digitized  data  signals. 

The  first  option  will  determine  the  baseline  when  the  data 
trace  has  a  segment  that  Is  contlnous  and  unaffected  by  the  signal 
voltage  driver.  If  these  conditions  can  be  fulfilled,  the 
subroutine  will  apply  a  first  order  linear  fit  of  the  line  segment 
data  to  generate  a  baseline  from  the  data  array.  Whenever 
possible,  this  option  should  be  used  as  It  is  likely  to  be  more 
accurate  In  all  cases. 

The  second  option  takes  a  lower  and  upper  x-value  from  the 
original  user  and  corresponding  y-values  taken  from  the  data 
array.  The  baseline  Is  determined  from  the  x-data  points  closest 
to  XLO  and  XHI.  The  XOLO(I)  data  point  closest  to  XLO  yield  ILO. 
The  XOLD(I)  data  point  closest  to  XHI  yields  IHI.  From  these 
current  values,  the  baseline  correction  becomes 

YNEW(I)  -  YOLD(I)  -  YOLD(ILO) 

-  (Y0LD( IHI )*Y0LD( ILO) )/(X0LD( IHI )-X0LD( ILO) )*(X0LD( I )-X0LD( ILO) ) 


ooo  o o o o o o o o o o o o o o o o o o o o 
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The  subroutine  will  be  halted  In  the  case  of  invalid  data, 
l.e.  when  the  following  conditions  exist: 

for  Invalid  Input  data— 

XLO  .GE.  XHI  or 
XLO  .LE.  X0LD(1)  or 
XHI  .GE.  XOLD(N) 

for  Invalid  derived  data— 

(IHI  -  ILO)  .LT.  1 


As  the  subroutine  Is  now  configured,  the  subroutine  Is  limited  to 
a  maximum  of  1000  data  points.  If  a  larger  number  of  data  points 
Is  required,  this  subroutine  must  be  appropriately  modified. 


DIMENSION  XOLD(IOOO),  YOLD(IOOO),  YNEW(IOOO) 

DOUBLE  PRECISION  B,  M,  NUMBER,  SUMX,  SUMX2 ,  SUMXY,  SUMY,  TEMP 
REAL  XHI,  XLO 

INTEGER  IDEL,  IHI,  ILO,  KOUNT,  N 
CHARACTER*132  INNAME,  OUTNAME,  TITLE,  TITLENEW 
CHARACTERS  ANS 
1  CONTINUE 

750  WRITE  (*,  15) 

15  FORMAT  (IX, '$  Enter  file  name  to  be  baseline  corrected.’) 

READ  (*,9,ERR=750)  INNAME 

751  WRITE  (*,25) 

25  FORMAT  (1X,'S  Enter  output  file  name.') 

READ  (*,9,ERR=751)  OUTNAME 

OPEN  (UNIT=5,  STATUS='OLD',FILE=INNAME, READONLY) 

REWIND  (UNIT=5) 

OPEN  (UNIT=10,  STATUS='NEW‘ ,FILE=OUTNAME) 

READ  (5,9)  TITLE 
9  FORMAT  (A) 

TITLENEW  =  TITLE(1 : 68)//' BASELINE/ '//TITLE(78: 132) 

READ  (5,*)  N 

Check  for  an  appropriate  number  of  data  points. 

IF  (N.GT.1000)  THEN 
N  *  1000 
WRITE  (10,10) 

WRITE  (*,10) 

10  FORMAT  (5X, 'Number  of  data  points  has  been  limited  to  1000.') 
END  IF 

IF  (N.LE.3)  THEN 
WRITE  (10,20) 

WRITE  (*,20) 

20  FORMAT  (5X, 'Number  of  data  points  Is  too  small.') 

GO  TO  1 
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ENDIF 

Determine  the  option  to  be  used. 

WRITE  (*,  22) 

22  FORMAT  (/,lX,'Two  options  may  be  used  to  determine  the  baseline 

1  'correction. ',/, IX, 'The  first  option  used  assumes  that  there' , 

2  '  Is  a  line  segment  that  Is' ,/, IX, 'continuous  and  relatively  ', 

3  'unaffected  by  the  driver  signal.  The  line' ,/, IX, 'segment  Is' 

4  '  then  least-square-fitted  to  a  first  order  (linear)  baseline.', 

5  /,lX,'The  second  method  uses  a  lower  and  an  upper  x-value  ', 

6  'supplied  by  the  user' ,/, IX, 'and  corresponding  y- values  taken  1 

7  ,'from  the  data  array.  A  straight  line' ,/,lX, ' Is  then  fitted', 

8  '  between  the  lower  and  the  upper  y-value.', 

9  /,lX,'The  first  method  Is  preferable. ' ,/) 

KOUNT  -  0 

752  WRITE  (*,24) 

24  FORMAT  (IX, '$  Is  there  a  continuous  line  segment  on  the  data  ' ,/ 

1  , IX, 'trace  suitable  for  use  In  the  least  squares  fitting', 

2  /, IX, 'under  the  first  option?') 

READ  (*,9,ERR=752)  ANS 
IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  THEN 

KOUNT  *  1 
GO  TO  27 
ENDIF 

27  CONTINUE 

IF  (KOUNT. EQ.l)  WRITE  (*,32) 

32  FORMAT  (IX, 'The  baseline  Is  determined  by  least-squares-flttlng  ', 

1  'data  between' ,/, IX, 'the  lower  and  upper  x-values  of  the  ', 

2  ' Input  file  data. ' ,//) 

753  WRITE  (*,35) 

35  FORMAT  (IX, '$  Input  lower  value  of  baseline  x-value.',/, 

1  IX, 'This  value  corresponds  to  first  x-value  of  baseline.') 

READ  (*,*,ERR=753)  XLO 

754  WRITE  (*,45) 

45  FORMAT  (IX, '$  Input  upper  value  of  baseline  x-value.',/, 

1  IX, 'This  value  corresponds  to  last  x-value  of  baseline.') 

READ  (*,*,ERR»754)  XHI 
READ  (5,*)  (XOLD(I),  I  *  1,  N) 

READ  (5,*)  (YOLD(I) ,  I  -  1,  N) 

Check  for  valid  limits  on  the  subroutine  values. 

IF  ((XLO.GT.XHI) .OR. (XLO.LT.XOLD(l)) .OR. (XHI .GT.XOLD(N)))  THEN 
WRITE  (*,30) 

30  FORMAT  (5X,'The  limits  on  the  baseline  are  Invalid.') 

WRITE  (*,40)  XLO,  XHI 

40  FORMAT  (5X,'XL0  *  ' ,1PE15.8,5X, 'XHI  =  '.1PE15.8) 

WRITE  (*,50)  X0LD(1) ,  XOLD(N) 

50  FORMAT  (5X,’X(1)  =  ' .1PE15.8.5X, 'X(N)  -  *,1PE15.8) 

GO  TO  999 
ENDIF 

C  Sort  throughout  the  XOLD  array  to  find  the  values  of  ILO  and  IHI 


o  o  o  o  o  o 


DO  150  I  =  2,  N 

XXL1  -  XLO  -  XOLD ( I  -  1) 

XXLO  =  XOLO(I)  -  XLO 
IF  (XXL1.EQ.0.0E0)  ILO  *  MAXO(l.I-l) 

IF  (XXL1.EQ.0.0E0)  ILO  =  I 
IF  ( XXL1*XXL0 . GT . 0 . OEO )  THEN 

IF  (ABS(XXLl).LE.ABS(XXLQ))  ILO  *1-1 
IF  (ABS(XXLl).GT.ABS(XXLO))  ILO  *  I 
END  IF 

150  CONTINUE 

DO  200  I  =  2,  N 

XXL1  =  XHI  -  XOLD (I  -  1) 

XXHI  =  XOLD(I)  -  XHI 
IF  (XXL1.EQ.0.0E0)  IHI  *  I  -  1 
IF  (XXL1.EQ.0.0E0)  IHI  *  I 
IF  ( XXL 1*XXHI . GT . 0 . OEO )  THEN 

IF  (ABS(XXLl).LT.ABS(XXHI))  IHI  =1-1 
IF  (ABS(XXLl) .GE.ABS(XXHI ) )  IHI  =  I 
ENDIF 

200  CONTINUE 

IF  ((IHI-ILO).LT.l)  THEN 
WRITE  (*,30) 

WRITE  (*,60)  ILO,  IHI 

60  FORMAT  (5X,'IL0  -  ' ,I8,10X, ' IHI  =  ',18) 

GO  TO  999 
ENDIF 

Calculate  the  slope  and  Intercept  for  the  second  option. 

IF  (KOUNT.GE.l)  GO  TO  500 
M  =  (DBLE(Y0LD(IHI))  -  DBLE(Y0LD(IL0)))/ 

1  (DBLE(XOLD(IHI))  -  DBLE(XOLD(ILO))) 

B  -  DBLE(YOLD(ILO))  -  M  *  DBLE(XOLD(ILO)) 

GO  TO  600 

Calculate  the  slope  and  Intercept  for  the  first  option. 

500  CONTINUE 

IDEL  *  IHI  -  ILO  +  1 
NUMBER  =  DBLE(IDEL) 

SUMX  *  O.ODO 

SUMX2  *  0.000 

SUMXY  =0.000 

SUMY  =0.000 

DO  550  I  =  ILO,  IHI 

SUMX  =  SUMX  +  DBLE(XOLD(I)) 

SUMX2  =  SUMX2  +  DBLE(X0LD(I))**2 

SUMXY  *  SUMXY  +  D8LE(XQLD(I))  *  DBLE(YOLD(I)) 

550  SUMY  =  SUMY  +  DBLE(YOLD(I)) 

M  =  ((NUMBER  *  SUMXY)  -  (SUMX  *  SUMY))/ 

1  ((NUMBER  *  SUMX2)  -  (SUMX**2)) 

B  =  (SUMY/NUMBER)  -  M  *  (SUMX/NUMBER) 


o  o  o  o  o  o 


C  Calculate  the  corrected  y- values. 

C 

600  CONTINUE 

DO  700  I  -  1,  N 

TEMP  -  DBLE(YOLD(I))  -  M  *  DBLE ( X0LD( I ) )  -  B 
700  YNEW(I)  -  SNGL(TEMP) 

Calculate  the  baseline-corrected  data  file. 

WRITE  (10,9)  TITLENEW 

WRITE  (10,*)  N 

WRITE  (10,*)  (XOLD(I),  I  -  1,  N) 

WRITE  (10,*)  (YNEW(I) ,  I  -  1,  N) 

999  CONTINUE 

CLOSE  (UNIT  =  5) 

CLOSE  (UNIT  -  10) 

Query  for  completion 

755  WRITE  (*,105) 

105  F0RMAT(1X,'$  Do  you  want  to  perform  any  more  baseline *  1 , 
1  'corrections?  (Y  or  N)') 

READ  (*,9,ERR=755)  ANS 
IF  ((ANS.EQ. 1 Y' ).0R. (ANS.EQ. ' y * ) )  GO  TO  1 
WRITE  (*,115) 

115  FORMAT  (IX, '$  Subroutine  BASELINE  Is  ending  now.1) 

RETURN 
END 


SUBROUTINE  FILEC 

REAL  XIN(IOOO),  YIN(IOOO),  SIN(IOOO),  XOUT(IOOO), 

1  YOUT(IOOO) 

INTEGER  INDEXIN(IOOO),  NIN,  NOUT 
CHARACTER*132  INPUT,  OUTPUT,  TITLE 
CHARACTERS  ANS 
1  CONTINUE 

9  FORMAT  (A) 

700  WRITE  (*,12) 

12  FORMAT  (IX, '$  Enter  the  file  name  to  be  spline  fit.') 

READ  (*,9,ERR-700)  INPUT 

701  WRITE  (*,13) 

13  FORMAT  ( IX, 1  $  Enter  the  output  file  name.1) 

READ  (*,9,ERR-701)  OUTPUT 

702  WRITE  (*,14) 

14  FORMAT  (IX, '$  Write  the  number  of  data  points  In  the  final 

1  'spline  fit. ' ,/,lX, 'This  number  must  be  .LE.  1000.') 

READ  (*,*,ERR»702)  NOUT 

OPEN  (UNIT-5, STATUS-’OLD' , FILE-INPUT, READONLY) 

REWIND  (UNIT-5) 

OPEN  (UNIT-10, STATUS-'NEW' .FILE-OUTPUT) 

READ  (5,9)  TITLE 


o  o  o 
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READ  (5,*)  NIN 

READ  (5,*)  (XIN(I),  I  =  1,  NIN) 

READ  (5,*)  (YIN(I),  I  =  1,  NIN) 

CLOSE  (UNIT=5) 

Check  for  compatibility  of  the  numbers  of  points. 

IF  (NIN.EQ.NOUT)  THEN 
WRITE  (*,*) 

WRITE  (*,*)  '  NIN  =  NOUT;  No  modified  file  will  be  created' 

WRITE  (*,*) 

WRITE  (10,9)  TITLE 

WRITE  (10,*)  NOUT 

WRITE  (10,*)  (XIN(I) ,  I  =  1,  NOUT) 

WRITE  (10,*)  (YIN(I),  I  =  1,  NOUT) 

CLOSE  (UNIT  -  10) 

GO  TO  999 
ENDIF 

IF  (NIN. GT. 1000)  THEN 
WRITE  (*,21)  NIN 

21  FORMAT  (IX, 'Number  of  Input  points  =  ',14,'  This  is  too  large.') 
GO  TO  1 
ENDIF 

IF  (NOUT.LE.l)  THEN 
WRITE  (*,16) 

16  FORMAT  (IX, 'The  number  of  output  points  Is  too  small.1) 

GO  TO  1 
ENDIF 

IF  (NOUT. GT. 1000)  THEN 
NOUT  =  1000 
WRITE  (*,17) 

17  FORMAT  (IX, 'The  number  of  output  points  has  been  limited  to', 

1  '  1000  points. ' ) 

ENDIF 

WRITE  (*,*) 

WRITE  (*,*)  '  Number  of  Input  points  *  ',  NIN 
WRITE  (*,*)  '  Number  of  output  points  *  ' ,  NOUT 
WRITE  (*,*) 

Calculate  the  spline  fit  parameters 

CALL  SPCOEF(NIN,XIN,YIN,SIN,INDEXIN) 

Calculate  the  new  spline  fit  data 

X0UT(1)  =  XIN(l) 

Y0UT(1)  =  YIN(l) 

XOUT(NOUT)  =  XIN(NIN) 

YOUT(NOUT)  =  YIN(NIN) 

DO  I  -  1,  NOUT 

XOUT(I)  =  (XIN(NIN)  -  XIN(l) )  *  FL0AT(I-1)/FL0AT(N0UT-1) 

1  +  XIN(l) 

YOUT(I)  =  SPLINE (NIN.XIN, YIN, SIN, I NDEXIN, XOUT(I )) 


ENDOO 

WRITE  (10,9)  TITLE ( 1 s 124)// ' SPLINE/ ' 

WRITE  (10,*)  NOUT 

WRITE  (10,*)  (XOUT(I),  1*1,  NOUT) 

WRITE  (10,*)  (YOUT(I),  I  *  1.  NOUT) 

999  CONTINUE 

CLOSE  (UNIT*10) 

Query  for  completion 

703  WRITE  (*,18) 

18  FORMAT  (IX,1 $  Do  you  wish  to  calculate  any  more  spline  fits?') 

READ  (*,9,ERR*703)  ANS 

IF  ((ANS.EQ. 'Y' ).0R.(ANS.EQ. 'y1 ))  60  TO  1 

WRITE  (*,19) 

19  FORMAT  (1X,‘$  Subroutine  FILEC  Is  ending  now.') 

RETURN 

END 


SUBROUTINE  INTCOR 

This  subroutine  will  correct  for  voltage  droop  of  the  passive  RC 
Integrator  according  to  the  relation 

VCOR  *  RC  *  VDIFF  +  V 

where  VCOR  Is  the  corrected  output  voltage, 

RCINT  Is  the  Integrator  RC  time  constant, 

VDIFF  Is  the  time  differential  of  voltage  and 
V  Is  the  original  voltage  from  the  traces. 

VCOR  Is  then  Integrated  to  yield  a  smoothed  value. 

All  the  arrays  (VCOR,  VDIFF  and  V)  are  In  plot  compatible  format. 

This  subroutine  assumes  that  the  x-arrays  of  all  the  voltage  data 
are  Identical.  If  this  Is  not  the  case,  another  subroutine  must 
be  used. 

This  subroutine  does  perform  simple  Integration  and 
differentiation. 

DOUBLE  PRECISION  T,  V,  VDIFF,  VCOR,  XLO,  XHI 
DIMENSION  V(1000),  VDIFF(IOOO),  T(1000),  VCOR(IOOO) 

CHARACTER*132  TITLE,  TITLENEW,  INNAME,  OUTNAME 
CHARACTERS  ANS 
INTEGER  N 
1  CONTINUE 

700  WRITE  (*,  15) 

READ  (*,  9,ERR=700)  INNAME 

701  WRITE  (*,  35) 


READ  (*,  9,ERR=702)  OUTNAME 

15  FORMAT  (IX, » $  Enter  Input  file  to  be  RC  corrected.1) 

35  FORMAT  (IX, '$  Enter  output  file  name.’) 

OPEN  (UNIT-IO.STATUS-'NEW ,FILE=OUTNAME) 

OPEN  (UNIT*15, STATUS* 'OLD' , FILE* INNAME, READONLY) 

REWIND  (UNIT*15) 

C 

C  Enter  Input  voltage  values 
C 

READ  (15,  9)  TITLE 
9  FORMAT  (A) 

TITLENEW  *  TITLE(1:77)//'RC  cor/’//TITLE(85:132) 

READ  (15,  *)  N 

READ  (15,  *)  (T(I),  I  -  1,  N) 

READ  (15,  *)  (V(I),  I  -  1,  N) 

C 

C  Calculate  differentiated  voltage  values 

C 

CALL  DOIFFER  (N,  T,  V,  VDIFF) 

C 

C  Enter  Integrator  value 

C 

702  WRITE  (*,70) 

70  FORMAT  (1X,'$  Enter  Integrator  value  (In  seconds).') 

READ  (*,*,ERR=702)  RC 
C 

C  Calculate  "corrected"  voltage  values  by  Integration  of  VDIFF 
C 

DO  300  I  *  1,  N 

300  VCOR(I)  =  RC  *  VDIFF ( I )  +  V(I) 

SUM  *  0.0D0 
Y1  *  VCOR(l) 

DO  500  I  =  2,  N 
XLO  -  T(I  -  1) 

XHI  *  T(I) 

Y 2  *  VCOR(I) 

SUM  *  SUM  +  0.5D0  *  (Y2  +  Yl)  *  (XHI  -  XLO) 

Y1  *  Y2 

500  VCOR(I)  =  SUM/RC 

VCOR(l)  -  2.0D0  *  VC0R(2)  -  VC0R(3) 

C 

C  Output  corrected  values 

C 

WRITE  (10,9)  TITLENEW 
WRITE  (10,  *)  N 

WRITE  (10,  *)  (SNGL(T(I)),  I  -  1,  N) 

WRITE  (10,  *)  (SNGL(VCOR(I)),  I  -  1,  N) 

CLOSE  (UNIT  *  10) 

CLOSE  (UNIT  *  15) 

C 

C  Query  for  more  RC  Integration  corrections 

C 

703  WRITE  (*,45) 

45  FORMAT  (IX, '$  Do  you  want  to  RC  correct  any  more  data  files?', 


1  1  (YorN)1) 

READ  (*,9,ERR»703)  ANS 

IF  ((ANS.EQ. 1 Y1 ).0R.(ANS.EQ. ' y 1 ) )  GO  TO  1 

WRITE  (*,55) 

55  FORMAT  (IX, '$  The  subroutine  INTCOR  is  ending  now.1) 
RETURN 
END 


SUBROUTINE  DDIFFER(N,X,Y,YDIFF) 

NOTE:  The  condition  X(1)<X(2)<  .  .  .  <X(N)  must  hold  and  should 
NOT  be  changed' 

Three  different  formulae  are  used  to  differentiate  the  given  data. 
These  formulae  are  : 

5  point  differential  -- 

Y'(I)  *  (Y(I-2)-8*Y(I-l)+8*Y(I+l)-Y(I+2))/(3*(X(I+2)-X(I-2))) 

3  point  differential  — 

Y'(I)  =  (Y(I+1)  -  Y(I-1))/(X(I+I)  -  X(I-l)) 

2  point  differential  (Standard  slope  Intercept  form;  used  on 
end  points  only) 

Y 1 (1)  -  (Y(2)  -  Y(1))/(X(2)  -  X(l))  and 

Y 1 (N)  -  (Y(N)  -  Y(N-1))/((X(N)  -  X(N-l)) 

As  the  subroutine  Is  now  configured,  the  subroutine  Is  limited  to 
a  maximum  of  1000  data  points.  If  a  larger  number  of  data  points 
Is  required,  this  subroutine  must  be  appropriately  modified. 

DIMENSION  X(1000).  Y(1000),  YDIFF(IOOO) 

DOUBLE  PRECISION  X,  Y,  YD  IFF 
INTEGER  N 

Check  for  an  appropriate  number  of  data  points. 

IF  (N.GT.1000)  THEN 
N  -  1000 
WRITE  (*,10) 

FORMAT  (5X,' Number  of  data  points  has  been  limited  to  1000.') 
ENDIF 

IF  (N.LE.l)  THEN 
WRITE  (*,20) 

FORMAT  (5X, 'Number  of  data  points  Is  too  small. ',/,5X, 

L  'The  subroutine  is  now  being  halted.') 

RETURN 
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Test  for  more  than  five  data  points.  If  there  are  more  than 
five  data  points,  use  a  5  pt.  differential. 

IF  (N.LE.5)  GO  TO  250 
DO  200  I  =  3,  N-2 
200  YDIFF(I)  - 

1  (Y(I-2)+8.OE0*(Y(I+l)-Y(I-l))-Y(I+2))/(3.OE0*(X(I+2)-X(I-2))) 

Test  for  (3.LE.N.LT.5).  If  true,  use  3  pt.  differential. 

250  CONTINUE 

IF  (N.LE.3)  GO  TO  350 

YDIFF(2)  =  (Y(3)  -  Y(1))/(X(3)  -  X(l)) 

YDIFF(N-l)  =  (Y(N)  -  Y(N-2))/(X(N)  -  X(N-2)) 

Test  for  valid  number  of  data  points.  If  there  Is  a  valid  number 
of  data  points,  finish  processing  end  points.  If  the  number  is 
Invalid,  end  the  subroutine  and  flag  the  error. 

350  CONTINUE 

IF  (N.LT.2)  THEN 
WRITE  (5,500) 

500  FORMAT  (5X,'The  number  of  data  points  Is  Invalid. 1 ,/,5X, 

1  'The  subroutine  is  being  halted  now.') 

RETURN 

ENDIF 

YDIFF(l)  -  (Y(2)  -  Y(1))/(X(2)  -  X(l)) 

YDIFF(N)  -  (Y(N)  -  Y(N-1))/(X(N)  -  X(N-l)) 

RETURN 

END 


SUBROUTINE  DIFFER 

This  subroutine  differentiates  one  data  array  (In  plot  compatible 
format)  into  another  plot  compatible  data  array.  The  format  of 
these  data  arrays  are  given  below: 

line  1  —  title  of  data  file 

line  2  --  number  of  data  points  N  (112) 

line  3  -  J  —  data  arrays  (free  *  format) 

First,  x  data  arrays  X(l),  X(2) . X(N),  then 

y  data  arrays  Y(l),  Y(2),  ....  Y(N). 

NOTE:  The  condition  X(1)<X(2)<  .  .  .  <X(N)  must  hold  and  should 
NOT  be  changed! 

Three  different  formulae  are  used  to  differentiate  the  given  data. 
These  formulae  are  : 
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5  point  differential  -- 

Y 1 ( I )  -  (Y(I-2)-8*Y(I-l)+8*Y(I+l)-Y(I+2))/(3*(X(I+2)-X(I-2))) 

3  point  differential  -- 

Y’(I)  *  (Y(I+1)  -  Y(I-1))/(X(I+1)  -  X(I-l)) 

2  point  differential  (Standard  slope  Intercept  form;  used  on 
end  points  only) 

Y ' ( 1 )  -  (Y(2)  -  Y(1))/(X(2)  -  X(l))  and 

V'(N)  =  (Y(N)  -  Y (N-l) )/((X(N)  -  X(N-l)) 

As  the  subroutine  Is  now  configured,  the  subroutine  Is  limited  to 
a  maximum  of  1000  data  points.  If  a  larger  number  of  data  points 
Is  required,  this  subroutine  must  be  appropriately  modified. 

DIMENSION  X(1000),  YOLD(IOOO),  YDIFF(IOOO) 

INTEGER  N 

CHARACTER* 132  TITLE,  TITLENEW,  INNAME,  OUTNAME 
CHARACTERS  ANS 
1  CONTINUE 

700  WRITE  (*,15) 

15  FORMAT  (IX, '$  Enter  file  name  to  be  differentiated.*) 

READ  (*,9,ERR=700)  INNAME 

701  WRITE  (*,25) 

25  FORMAT  (IX, '$  Enter  differentiated  output  file  name.') 

READ  (*,9,ERR*701)  OUTNAME 

OPEN  (UNIT=5,  STATUS=* OLD ' ,FILE=INNAME, READONLY) 

REWIND  (UNIT*5) 

OPEN  (UNIT*10,  STATUS* 'NEW' ,FILE=OUTNAME) 

READ  (5,9)  TITLE 

9  FORMAT  (A) 

TITLENEW  =  TITLE(l:84)//'dY/dX/'//TITLE(91:132) 

READ  (5,*)  N 

Check  for  an  appropriate  number  of  data  points. 

IF  (N.GT.1000)  THEN 
N  *  1000 
WRITE  (*,10) 

10  FORMAT  (5X,'Number  of  data  points  has  been  limited  to  1000.') 
END  IF 

IF  (N.LE.l)  THEN 
WRITE  (*,20) 

20  FORMAT  (5X, 'Number  of  data  points  Is  too  small. *,/,5X, 

1  'The  subroutine  Is  now  being  halted.') 

GO  TO  999 
END  IF 

READ  (5,*)  (X(I),  I  -  1,  N) 

READ  (5,*)  (YOLD(I),  I  *  1,  N) 


Test  for  more  than  five  data  points.  If  there  are  more  than 
five  data  points,  use  a  5  pt.  differential. 

IF  (N.LE.5)  GO  TO  250 
DO  200  I  =  3,  N-2 

200  YDIFF(I)  *  (Y0LD(I-2)-8.0*Y0LD(I-l)+8.0*Y0LD(I+l)-Y0LD(I+2))/ 

1  (3.0*(X(I+2)-X(I-2))) 

Test  for  (3.LE.N.LT.5).  If  true,  use  3  pt.  differential. 

250  CONTINUE 

IF  (N.LE.3)  GO  TO  350 

YDIFF(2)  =  (Y0LD(3)  -  Y0LD(1))/(X(3)  -  X(l)) 

YDIFF(N-l)  =  (YOLD(N)  -  Y0LD(N-2 ) )/(X( N)  -  X(N-2)) 

Test  for  valid  number  of  data  points.  If  true,  finish  processing 
end  points.  If  false,  end  subroutine  and  flag  error. 

350  CONTINUE 

IF  (N.LT.2)  THEN 
WRITE  (5,500) 

500  FORMAT  (5X,'The  number  of  data  points  Is  Invalid. ' ,/,5X, 

1  'The  subroutine  Is  being  halted  now.') 

GO  TO  999 
ENDIF 

YDIFF(l)  =  (Y0LD(2)  -  Y0LD(1))/(X(2)  -  X(l)) 

YDIFF(N)  =  (YOLD(N)  -  Y0LD(N-1))/(X(N)  -  X(N-l)) 

WRITE  (10,9)  TITLENEW 

WRITE  (10,*)  N 

WRITE  (10,*)  (X(I),  I  =  1,  N) 

WRITE  (10,*)  (YDIFF(I) ,  I  -  1,  N) 

CLOSE  (UNIT  -  5) 

CLOSE  (UNIT  =  10) 

Continue  for  more  differentiation 

702  WRITE  (*,35) 

35  FORMAT  (IX, ’ $  Do  you  want  to  differentiate  any  more  files?  (Y  or', 
1  '  N)') 

READ  (*,9,ERR=702)  ANS 

IF  ((ANS.EQ. ' Y ' ) .OR. (ANS.EQ. ' y ' ) )  GO  TO  1 

WRITE  (*,45) 

45  FORMAT  (IX, '$  The  subroutine  DIFFER  Is  ending  now.') 

999  CONTINUE 
RETURN 
END 
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C  rule  to  Integrate  the  data. 

C 

EXTERNAL  F 

DOUBLE  PRECISION  SUM 
DIMENSION  YINT(IOOO) 

CHARACTER*132  TITLE,  TITLENEW,  INNAME,  OUTNAME 
CHARACTER*1  ANSER 

COMMON  N,  XR(IOOO),  YR(IOOO),  S(IOOO),  INDEX(IOOO) 

1  CONTINUE 

700  WRITE  (*,10) 

10  FORMAT  (IX, '$  Enter  file  name  to  be  Integrated.') 

READ  (*,9,ERR»700)  INNAME 

701  WRITE  (*,20) 

20  FORMAT  (IX, '$  Enter  output  file  name.') 

READ  (*,9,ERR=701)  OUTNAME 

OPEN  ( UN I T= 10 , STATUS* ‘ NE W 1 ,FILE=OUTNAME) 

OPEN  (UNIT*15, STATUS* 1  OLD 1 ,FILE=INNAME, READONLY) 

REWIND  (UNIT=15) 

READ  (15,  9)  TITLE 
9  FORMA!  (A) 

TITLENEW  =  TITLE (1:90)//' INT(YdX)/'//TITLE(100:132) 

READ  (15,  *)  N 

READ  (15,  *)  (XR(I),  I  =  1,  N) 

READ  (15,  *)  (YR(I) ,  I  *  1,  N) 

CALL  SPCOEF(N,  XR,  YR,  S,  INDEX) 

ACC  -  5.0E-7 
SUM  *  O.ODO 
DO  500  I  *  2,  N 
WRITE  (*,  300)  I 

300  FORMAT  (5X, 'Working  on  subroutine  INTEGRATE;  I  =  ' ,2X,I4) 
XLO  *  XR(I  -  1) 

XHI  =  XR(I) 

CALL  SIMP(F,  XLO,  XHI,  ACC,  ANS,  ERROR,  AREA,  I FLAG) 

SUM  *  SUM  +  DBLE(ANS) 

500  YINT(I)  *  SNGL(SUM) 

WRITE  (10,  9)  TITLENEW 

WRITE  (10,  *)  N 

WRITE  (10,  *)  ( XR ( I ) ,  I  ■  1,  N) 

WRITE  (10,  *)  (YINT(I),  I  =  1,  N) 

CLOSE  (UNIT  *  10) 

CLOSE  (UNIT  =  15) 

Query  to  determine  If  more  Integrations  are  needed 

702  WRITE  (*,55) 

55  FORMAT  (1X,'S  Do  you  want  to  perform  any  more  Integrations? 
1  '  (Y  or  N)') 

READ  (*,9,ERR=702)  ANSER 
IF  ((ANSER. EQ. ' Y' ). OR. (ANSER. EQ.'y'))  GO  TO  1 
WRITE  (*,65) 

65  FORMAT  (IX, '$  The  subroutine  INTEGRATE  Is  ending  now.') 
RETURN 
END 


FUNCTION  F (X) 

COKWON  N,  XR(IOOO) ,  YR(IOOO),  S(IOOO),  INDEX(IOOO) 
F  -  SPLINE  (N,  XR,  YR,  S,  INDEX,  X) 

RETURN 

END 


SUBROUTINE  SUM 
C 

C  This  subroutine  will  Input  up  to  10  data  files  and  output  the  file 

C  that  Is  the  arithmetic  sum  of  the  Input  files.  The  subroutine  can 

C  perform  a  correlation  dependent  on  the  calculated  x-lntercept  of 
C  the  Initial  slope  of  the  trace.  With  proper  modification,  the 

C  subroutine  can  be  used  to  find  the  arithmetic  sum  of  more  than 

C  10  files. 

C 

PARAMETER  NUPTS=1000 
CHARACTER*132  FILENAME(ll) ,  TXT(ll) 

CHARACTER*1  ANS 

INTEGER  INDEX(IO.NUPTS),  II(NUPTS),  IMAX(IO),  IMIN(IO),  KC(10) 
INTEGER  KN,  NUM(IO) 

REAL  ASIGN(IO) ,  B(10),  CMAX(IO),  CQ(10),  CT(10),  OELQI(IO) 

REAL  DELQIPl(lO) ,  DELTI(IO),  DELTIPl(lO),  FMAX(IO),  FMIN(IO) 

REAL  S(10,NUPTS),  SLOPE(IO),  SS(NUPTS),  TEMP,  TEST,  TMAX 
REAL  TMIN,  TZERO(IO),  X(ll.NUPTS),  XX(NUPTS),  XMAX(IO) 

REAL  XMIN(IO) ,  Y(11,NUPTS),  YY(NUPTS) 

DOUBLE  PRECISION  DK(10),  DSUMX(IO),  DSUMX2(10),  DSUMXY(IO) 

DOUBLE  PRECISION  DSUMY(IO) 

LL  *  1 
99  CONTINUE 
LL  *  LL  +  1 
C 

C  Enter  the  number  of  files  to  be  added 
C 

700  WRITE  (*,555) 

555  FORMAT  (IX, ' $  Enter  the  number  of  files  to  be  added.') 

READ  (*,*,ERR=700)  KN 

IF  ((KN.LE.O).OR.(KN.GT.IO))  THEN 
WRITE  (*,556) 

556  FORMAT  (IX, 'The  number  of  files  Is  In  error  —  either  It  is  too  1 

1  , ' large  or  too  small.') 

GO  TO  905 
ENDIF 

DO  I  *  1,  11 
DO  J  =  1,  132 
FILENAME(I)(J:J)  =  '  ' 


C  Enter  file  names 
C 

•  DO  L  -  1,  KN 

701  WRITE  (*,1)  L 

1  FORMAT  (IX, '$  Enter  the  name  for  Input  file  for  file  #  ',12) 

READ  (*,2,ERR*701)  FILENAME (L) 

ENDOO 

2  FORMAT  (A) 

702  WRITE  (*,3) 

3  FORMAT  (1X,'$  Enter  the  name  of  the  output  file.') 

REAO  (*,2,ERR*702)  FILENAME(ll) 

C 

C  Enter  the  Input  files 
C 

DO  L  -  1,  KN 

IF (LL-GE .2)  REWIND  (UNIT-L) 

OPEN  ( UN IT=L , NAME*F I LENAME ( L ) , TYP  E= 1  OLD 1 , READONLY ) 

READ  (L,2)  TXT(L) 

READ  (L,*)  NUM(L) 

READ  (L,*)  (X(L,J) ,J=1,NUM(L)) 

READ  (L,*)  (Y(L,J),J=1,NUM(L)) 

CLOSE  (UNIT=L) 

ENDDO 

OPEN  (UNIT=11,NAME»FILENAME(11),TYPE»'NEW') 

C 

C  Find  the  maximum  of  the  absolute  value  of  each  of  the  Input  files 
C 

DO  L  =  1,  KN 
CMAX(L)  *  O.OEO 
DO  J  *  1,  NUM(L) 

TEMP  *  CMAX(L) 

CMAX(L)  =  AMAX1(CMAX(L),ABS(Y(L, J))) 

IF  (CMAX(L).GT.TEMP)  ASIGN(L)=SIGN(1.0E0,Y(L,J)) 

ENDOO 

WRITE  (*,*)  1  L  =  1 ,L, 1  ASIGN  *  CMAX(L)  =  ' ,ASIGN(L)*CMAX(L) 

ENDDO 

C 

C  Query  If  a  time  correlation  Is  required.  If  the  answer  Is  yes, 

C  continue  as  given.  If  the  answer  Is  no,  jump  directly  to  the 

C  summation  step. 

C 

703  WRITE  (*,7) 

7  FORMAT  (IX, '$  Do  you  want  to  perform  a  time  correlation  on  the', 

1  1  data  traces?  (Y  or  N)') 

READ  (*,2,ERR=703)  ANS 

IF  ((ANS.EQ. ' Y 1 ).0R.(ANS.EQ. ' y ' ))  GO  TO  200 

GO  TO  500 

200  CONTINUE 
C 

C  Query  If  user  wishes  to  adjust  the  limits  for  time  correlation 
C 

WRITE  (*,201) 

201  FORMAT  (//,lX,'For  the  purposes  of  adjusting  the  timing  ', 

1  '(ordinate)  of  the  digitized  data,' ,/, IX, 'the  user  ', 


*  l>*  (.t '(.«  *,*  ■.# i." 


2  'can  select  limits  on  the  digitized  trace  rise/fall', 

3  '  based  on  fractions' ,/, IX, 'of  trace  maximum. ',//, IX, 

4  'Implicit  in  this  correlation  are  the  assumptions', 

5  '  that  the  trace  rise/fall  Is' ,/, IX, 'monotonic  ', 

6  'and  that  an  extrapolated  zero  can  be  calculated  by', 

7  '  linear  fitting' ,/, IX, 'the  portion  of  trace  ', 

8  'rise/fall  determined  from  fractional  limits  of  ', 

9  'maximum. ',//, IX, 

1  'The  curve  will  extrapolate  a  zero  point  from  the  trace', 

2  '  between  FMIN  *  CMAX' ,/,lX, 'and  FMAX  *  CMAX.  Here,', 

3  '  FMIN  Is  the  lower  fraction,  FMAX  Is  the  upper  fraction', 

4  /,lX,'and  CMAX  Is  the  trace  maximum.  ',//,lX, 

5  'Unless  set  by  user,  FMIN  *  0.1  and  FMAX  =  0.9.',/) 

202  FORMAT  (//.IX, '$  Do  you  want  to  set  the  limits  for  time', 

1  '  correlation?  (Y  or  N)') 

WRITE  (*,202) 

READ  (*,2)  ANS 

IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  THEN 
WRITE  (*,203) 

203  FORMAT  (IX, '$  Do  you  want  the  same  fractional  limits  on  all 
1  'traces?  (Y  or  N)') 

READ  (*,2)  ANS 

IF  ( (ANS. NE . ' Y ' ).AND. (ANS.NE. ' y ' ))  THEN 
DO  L  =  1,  KN 

204  CONTINUE 
WRITE  (*,205)  L 

205  FORMAT  (1X,'S  What  Is  FMIN(' ,12,')?') 

READ  (*,*,ERR=204)  FMIN(L) 

FMIN(L)  *  AMINl(O.9E0,AMAXl(0.10E0,FMIN(L))) 

206  CONTINUE 
WRITE  (*,207)  L 

207  FORMAT  (1X,'S  What  Is  FMAX( ’ ,12, 1 )?' ) 

READ  (*,*,ERR=206)  FMAX(L) 

FMAX(L)  =  AMAX1(0.1EQ,AMIN1(0.90E0,FMAX(L))) 

ENDDO 

DO  L  =  1,  KN 

IF  (FMIN(L).GT.FMAX(l))  THEN 
TEMP  =  FMAX(L) 

FMAX(L)  =  FMIN(L) 

FMIN(L)  =  TEMP 
ENDIF 

IF  (FMIN(L).EQ.FMAX(L))  THEN 
FMIN(L)  =  0.1E0 
FMAX(L)  =  0.9E0 
ENDIF 
ENDDO 

WRITE  (*,210)  (L,FMIN(L),FMAX(L) ,L=1,KN) 

210  FORMAT  (IX,'  L  =  ',16,'  FMIN(L)  =  '.1PE10.3,'  FMAX(L)  =’, 

1  1PE10.3) 

ELSE 

211  CONTINUE 
WRITE  (*,205)  1 

READ  (*,*,ERR=211)  FMIN(l) 

FMIN(l)  =  AMIN1(0.9E0,AMAX1(0.10E0,FMIN(1))) 
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CONTINUE 

WRITE  (*,207)  1 

READ  (*,*,ERR=212)  FMAX(l) 

FMAX(l)  -  AMAX1(0.1E0,AMIN1(0.90E0,FMAX(1))) 
IF  (FMIN(l).GT.FMAX(l))  THEN 
TEMP  »  FMAX(l) 

FMAX(l)  «  FMIN(l) 

FMIN(l)  =  TEMP 
ENDIF 

IF  (FMIN(l).EQ.FMAX(l))  THEN 
FMIN(l)  =  0.10E0 
FMAX(l)  =  0.90E0 
ENDIF 

DO  L  =  2,  KN 
FMIN(L)  *  FMIN(l) 

FMAX(L)  *  FMAX(l) 

ENDDO 

WRITE  (*,210)  (L,FMIN(L) ,FMAX(L),L=1,KN) 

ENDIF 

ELSE 

DO  L  -  1,  KN 
FMIN(L)  =  0.1E0 
FMAX(L)  *  0.9E0 
ENDDO 

WRITE  (*,210)  (L,FMIN(L),FMAX(L),L=1,KN) 
ENDIF 


DO  L  *  1,  KN 
CT(L)  »  FMIN(L) 
CQ(L)  =  FMAX(L) 
ENDDO 

DO  L  =  1,  KN 
WRITE  (*,*) 
WRITE  (*,*)  1  L 
WRITE  (*,*)  '  L 
WRITE  (*,*) 
ENDDO 


CMAX(L) 

CMAX(L) 


1 ,L, 1  CMAX(L)  =  1 ,CMAX(L) 

' »L, 1  CT(L)  *  1 ,CT(L), 1  CQ(L)  = 


,CQ(L) 


Find  the  corresponding  times  of  the  quarter  and  tenth  values  of 
digitized  data  traces 

DO  L  *  1,  KN 
IMIN(L)  =  -1 
IMAX(L)  =  -1 
DO  I  *  1,  NUM(L) 

DELQI(L)  =  CQ(L)  -  Y(L,I) 

OELqiPl(L)  =  Y(L,I+1)  -  CQ(L) 

DELTI(L)  »  CT(L)  -  Y(L,I) 

DELTIPl(L)  -  Y(L,I+1)  -  CT(L) 

IF  ((IMAX(L).GT.O).AND.(IMIN(l).GT.O))  GO  TO  110 
IF  (DELQI(L) .EQ.O.OEO)  THEN 
IMAX(L)  -  MAXO(I-l.l) 

GO  TO  101 
ENDIF 

IF  ((IMAX(L).GT.O).AND.(IMIN(L).GT.O))  GO  TO  110 
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IF  (DELQIPl(L).EQ.O.OEO)  THEN 
IMAX(L)  =  MINO(I+l,NUM(L)) 

GO  TO  101 
END  IF 

101  CONTINUE 

IF  ((IMAX(L).GT.O).AND. (IMIN(L).GT.O))  GO  TO  110 
IF  (DELTI(L).EQ.O.OEO)  THEN 
IMIN(L)  *  MAXO(I-l.l) 

GO  TO  102 
END  IF 

IF  ((IMAX(L).GT.O).AND. (IMIN(L).GT.O))  GO  TO  110 
IF  (DELTIPl(L).EQ.O.OEO)  THEN 
IMIN(L)  =  MIN0(I+1,NUM(L)) 

GO  TO  102 
ENDIF 

102  CONTINUE 

IF  ((IMAX(L).GT.O).AND.(IMIN(L).GT.O))  GO  TO  110 
IF  (DELTI(L)*0ELTIP1(L).GT.0.0E0)  THEN 

IMIN(L)  -  I  +  JNINT((CT(L)  -  Y(L,I))/(Y(L,I+1)  -  Y(L,I))) 
IMIN(L)  =  MAX0(IMIN(L)-1,1) 

ENDIF 

IF  ((IMAX(L).GT.O).AND.(IMIN(L).GT.O))  GO  TO  110 
IF  (DELQI(L)*0ELQIP1(L).GT.0.0E0)  THEN 

IMAX(L)  =  I  +  JNINT((CQ(L)  -  Y(L,I))/(Y(L,I+1)  -  Y(L,I))) 
IMAX(L)  =  MIN0(IMAX(L)+1,NUM(L)) 

ENDIF 

110  CONTINUE 
ENDDO 

IF  ((IMIN(L).LE.1).0R.(IMIN(L).GE.NUM(L)))  THEN 
WRITE  (*,9) 

WRITE  (*,*)  '  L  =  ' ,L, 1  NUM(L)  *  1 ,NUM(L), '  IMIN(L)  *  ' ,IMIN(L) 
9  FORMAT  (lX.'The  calculated  limits  on  10%  of  the  value  of  the1 
1  '  current  are  Invalid.') 

GO  TO  905 
ENDIF 

IF  ((IMAX(L) .LE.l) .OR. (IMAX(L).GE.NUM(L)))  THEN 
WRITE  (*,11) 

WRITE  (*,*)  '  L  =  '  ,L, '  NUM(L)  =  ',NUM(L),'  IMAX(L)  =  ’,IMAX(L) 

11  FORMAT  (IX, 'The  calculated  limits  on  25%  of  the  value  of  the', 

1  '  current  are  Invalid.1) 

GO  TO  905 
ENDIF 

IF  (IMIN(L).GE.IMAX(L))  THEN 
WRITE  (*,12) 

WRITE  (*,*)'  L  *  ' ,L, '  IMIN(L)  =  ' ,IMIN(L), '  IMAX(L)  =  ',IMAX(L) 

12  FORMAT  (lX.'The  lower  limit  on  current  Is  greater  than  or  ', 

1  'equal  to  upper  limit.') 

GO  TO  905 
ENDIF 

XMIN(L)  =  X(L,IMIN(L)) 

XMAX(L)  =  X(L,IMAX(L)) 

WRITE  (*,*)  '  L  *  '  ,L, '  IMIN(L)  =  ',IMIN(L),'  IMAX(L)  =  ',IMAX(L) 
WRITE  (*,*)  '  L  =  '  ,L, '  XMIN(L)  =  ',XMIN(L),'  XMAX(L)  =  ' ,XMAX(L) 
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Calculate  the  "zero"  point  of  the  data  by  least-squares-flttlng 
of  the  data  between  X  -  XMIN(L)  AND  X  =  XMAX(L) 

KC(L)  -  IMAX(L)  -  IMIN(L)  +  1 
DSUMXY(L)  -  0.0D0 
DSUMX(L)  -  0.0D0 
DSUHY(L)  «  0.0D0 
DSUMX2(L)  »  0.000 
DO  I  -  IMIN(L),  IMAX(L) 

DSUMXY(L)  -  DSUMXY(L)  +  X(L,I)  *  Y(L,I) 

DSUMX(L)  -  DSUMX(L)  +  X(L,I) 

DSUMY(L)  *  DSUMY(L)  +  Y(L,I) 

DSUMX2 ( L )  »  DSUMX2(L)  +  X(L,I)**2 
ENDDO 

DK(L)  -  DBLE(KC(L)) 

SLOPE (L)  =  ( DK ( L ) *DSDMX Y ( L ) -DSUMX ( L ) *DSUMY ( L ) ) / 

1  (DK(L)*DSUMX2(L)-DSUMX(L)**2) 

B(L)  *  (DSUMY(L)/DK(L))  -  SLOPE(L)*(DSUMX(L)/DK(L)) 

TZERO(L)  »  -  B(L)/SL0PE(L) 

WRITE  (*,*)  '  L  *  1 ,L, 1  TZERO(L)  *  TZERO(L) 

Calculate  the  new  time  base  for  the  data  files 

DO  I  *  1,  NUM(L) 

X(L, I)  =■  X(L,I)  -  TZERO(L) 

ENDDO 

ENDDO 

After  subtracting  off  the  zero  offset  from  each  of  the  KN  number 
of  traces,  find  the  average  of  the  offsets  and  add  the  averaged 
offset  to  each  of  the  traces  to  gain  a  common  time  reference  with 
respect  to  all  all  of  the  other  traces. 

TEMP  =  0.0E0 
DO  L  =  1,  KN 
TEMP  =  TEMP  +  TZERO(L) 

ENDDO 

TEMP  *  TEMP/FLOAT(KN) 

DO  L  =  1,  KN 
DO  I  =  1,  NUM(L) 

X(L,I)  =  X(L,I)  +  TEMP 

ENDDO 

ENDDO 

500  CONTINUE 

Calculate  the  minimum  and  the  maximum  times  for  all  the  averaging 
calculations 

TMIN  =  X(l,l) 

TMAX  *  X(1 ,NUM(1)) 

DO  L  *  1,  KN 

TMIN  =  AMAX1(TMIN,X(L,1)) 

TMAX  =  AMIN1(TMAX,X(L,NUM(L))) 

ENDDO 
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WRITE  (*,*)  '  TMIN  =  TMIN,  *  TMAX  =  ' ,  TMAX 

Spline  fit  the  Input  data  files 

DO  L  *  1,  KN 
N  =  NUM(L) 

DO  K  -  1,  N 
XX(K)  *  X(L,K) 

YY(K)  »  Y(L,K) 

SS(K)  =  S(L,K) 

II(K)  *  INDEX(L,K) 

ENDDO 

CALL  SPCOEF  (N,XX,YY,SS,II) 

DO  K  *  1,  N 

S(L,K)  =  SS(K) 

INDEX(L.K)  *  II(K) 

ENDDO 

ENDDO 

Add  the  Input  data 

DO  I  -  1,  501 
Y( 11 » I )  =  O.OEO 
ENDDO 

DO  I  *  1,  501 

X(11,I)  =  TMIN  +  (TMAX  -  TMIN)*FLOAT(I  -  1)/5.0E2 
DO  L  =  1,  KN 
N  *  Nl)M(L) 

DO  K  *  1,  N 

XX(K)  =  X(L,K) 

YY(K)  *  Y(L,K) 

SS(K)  =  S(L,K) 

I I (K)  =  INDEX(L.K) 

ENDDO 

Y(11,I)  *  SPLINE(N,XX,YY,SS,II,X(11,I))  +  Y(ll.I) 

ENDDO 

ENDDO 

Output  the  sum  file 

TXT(ll)  =  1  Sum  of  files  ' //FILENAME( 1 ) ( 1 : 10)// ' ,  7/ 

1  FILENAME(2) ( 1 : 10)// ' ,  7/FILENAME(3)(l:lO)//' ,  '// 

2  FILENAME(4)(1:10)//' ,  ' //FILENAME( 5) ( 1 : 10)// ' ,  '// 

3  FILENAME(6)(1:10)//' ,  1 //FILENAME (7) ( 1 : 10)//* ,  '// 

4  FILENAME (8) ( 1 : 10)//' ,  ' //FILENAME(9) ( 1 : 10)// ' ,  '// 

5  FILENAME(10)(1:10) 

WRITE  (11,2)  TXT(ll) 

WRITE  (11,*)  501 

WRITE  (11,*)  (X(ll, I), 1-1,501) 

WRITE  (11,*)  (Y(11,I),I=1 ,501 ) 

CLOSE  (UNIT=11) 

704  WRITE  (*,850) 

850  FORMAT  ( IX , ’ $  Oo  you  want  to  add  any  more  data  files?  (Y  or  N)‘) 
READ  (*,2,ERR=704)  ANS 
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IF  ((ANS.EQ. ' Y ' ).0R.(ANS.EQ. 1 y ' ) )  60  TO  99 
905  CONTINUE 
WRITE  (*,901) 

901  FORMAT  (IX, '$  The  subroutine  SUM  Is  terminating  now.1) 
RETURN 
END 


SUBROUTINE  SUBTRACT 

This  subroutine  compares  the  results  of  two  files  and  yields  a 
third  file  as  a  difference  of  the  two  files.  Both  files  must  be 
In  plot  compatible  form. 

REAL  Xl(1000),  X2(1000),  XDIFF(IOOO),  Yl(1000),  Y2(1000), 

1  YDIFF(IOOO),  Sl(1000),  S2(1000),  XLO,  XHI,  X 
INTEGER  INDEXl(lOOO) ,  INDEX2(1000) ,  Nl,  N2,  NDIFF,  NUM1 
CHARACTER*132  NAME1,  NAME 2,  OIFFNAME 
CHARACTERS  ANS 
1  CONTINUE 

Prompt  for  first  Input  file 

700  WRITE  (*,10) 

9  FORMAT  (A) 

10  FORMAT  (IX,1 $  Enter  data  file  name  to  be  subtracted.1) 

READ  (*,9,ERR®700)  NAME1 

Prompt  for  second  Input  file  name 

701  WRITE  (*,20) 

20  FORMAT  (1X,'$  Enter  data  file  name  to  subtract.1) 

READ  (*,9,ERR=701)  NAME 2 

Prompt  for  difference  file  name 

702  WRITE  (*,30) 

30  FORMAT  (IX, '$  Enter  file  name  of  the  new  (differenced)  file.') 
READ  (*,9,ERR=702)  DIFFNAME 
OPEN  (UNIT®10 .STATUS® 1  OLD ' ,FILE=NAME1 .READONLY) 

OPEN  (UNIT=20, STATUS® ' OLD' ,FILE=NAME2, READONLY) 

REWIND  (UNIT-10) 

REWIND  (UNIT=20) 

OPEN  (UNIT=30,STATUS=' NEW' ,FILE=DIFFNAME) 

Enter  first  file  characteristics 

READ  (10,*) 

READ  (10,*)  Nl 

READ  (10,*)  (X1(I),  I  =  1,  Nl) 

READ  (10,*)  (Y1(I) ,  I  =  1,  Nl) 
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Enter  second  file  characteristics 
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READ  (20,*) 

READ  (20,*)  N2 

READ  (20,*)  (X2(I),  I  -  1,  N2) 
READ  (20,*)  (Y2(I),  I  -  1,  N2) 


NDIFF  =  MAX0(2,MIN0(1000,MAX0(IABS(N1),IABS(N2),501))) 

Spline  fit  the  data  of  FILE1  and  FILE2 

CALL  SPC0EF(N1,X1,Y1,S1,INDEX1) 

CALL  SPCOEF ( N2 , X2 , Y2 , S2 , INDEX2 ) 

Define  the  limits  of  the  X-values 

XLO  =  AMAX1(X1(1),X2(1)) 

XHI  *  AMIN1(X1(N1),X2(N2)) 

NUM1  «  NDIFF  -  1 

Calculate  the  difference  file 

DO  I  =  1,  NDIFF 

XDIFF(I)  =  XLO  +  (XHI  -  XLO)  *  FLOAT ( I  -  1)/FL0AT(NUM1) 

X  *  XDIFF(I) 

YDIFF(I)  =  SPLINE (Nl, XI, Yl, SI, INDEX1,X) 

1  -  SPLINE (N2,X2,Y2,S2,INDEX2,X) 

ENDDO 

Output  the  difference  file 

WRITE  (30,9)  '  Difference  file  between  7/NAMEl(l:20)// 

1  1  and  7/NAME2(l:20) 

WRITE  (30.*)  NDIFF 

WRITE  (30,*)  (XDIFF(I),  I  =  1,  NDIFF) 

WRITE  (30,*)  (YOIFF(I),  I  =  1,  NDIFF) 

CLOSE  (UNIT-10) 

CLOSE  (UNIT-20) 

CLOSE  (UNIT-30) 

Query  for  completion 

703  WRITE  (*,15) 

15  FORMAT  (IX, ' S  Do  you  want  to  create  any  more  difference  files?', 
1  1  (YorN)1) 

READ  (*,9,ERR=703)  ANS 

IF  ((ANS.EQ. ' Y ' ) .OR. (ANS.EQ. 1 y ' ) )  GO  TO  1 

WRITE  (*,25) 

25  FORMAT  (IX, ' S  Subroutine  SUBTRACT  is  ending  now.') 

RETURN 

END 
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SUBROUTINE  MULTIPLY 


This  subroutine  will  Input  up  to  10  data  files  and  output  the  file 
that  Is  the  product  of  the  input  files.  The  subroutine  can 
perform  a  correlation  dependent  on  the  calculated  x-lntercept  of 
the  Initial  slope  of  the  trace.  With  proper  modification,  the 
subroutine  can  be  used  to  find  the  product  of  more  than  10  files. 


PARAMETER  NUPTS-1000 
CHARACTER*132  FILENAME(ll) ,  TXT(ll) 

CHARACTER*!  ANS 

INTEGER  INDEX(10,NUPTS),  II(NUPTS),  IMAX(IO),  IMIN(IO),  KC(10) 
INTEGER  KN,  NUM(IO) 

REAL  ASIGN(IO) ,  B(10),  CMAX(IO),  CQ(10),  CT(10),  DELQI(IO) 

REAL  DELQIPl(lO) ,  DELTI(IO),  DELTIPl(lO),  FMAX(IO),  FMIN(IO) 

REAL  S(10,NUPTS) ,  SIGNE,  SLOPE(IO),  SS(NUPTS),  TEMP,  TEST,  TMAX 
REAL  TMIN  ,  TZERO(IO),  X(11,NUPTS),  XX(NUPTS),  XMAX(IO),  XMIN(IO) 
REAL  Y(11,NUPTS) ,  YY(NUPTS) 

DOUBLE  PRECISION  DK(10),  OSUMX(IQ),  DSUMX2(10),  DSUMXY(IO) 

DOUBLE  PRECISION  DSUMY(lO) 

LL  =  1 
99  CONTINUE 
LL  *  LL  +  1 


Enter  the  number  of  files  to  be  multiplied 


700  WRITE  (*,555) 

555  FORMAT  (IX, '$  Enter  the  number  of  files  to  be  multiplied.1) 

READ  (*,*,ERR=700)  KN 

IF  ((KN.LE.O).OR.(KN.GT.IO))  THEN 
WRITE  (*,556)  KN 

556  FORMAT  (IX, 'The  number  of  files  Is  In  error  —  either  It  Is  too  ' 

1  large  or  too  small. ' ,/,6X, 1  Input  number  of  files  =  1 

2  ,  15) 

GO  TO  905 

END  IF 

DO  I  -  1,  11 
DO  0  -  1,  132 
FILENAME(I)(J: J)  =  '  ' 

ENDDO 

ENDDO 


Enter  file  names 


DO  L  -  1,  KN 

701  WRITE  (*,1)  L 

1  FORMAT  (IX, '$  Enter  the  name  for  Input  file  for  file  #  ',12) 

READ  (*,2,ERR=701)  FILENAME(L) 

ENDDO 

2  FORMAT  (A) 

702  WRITE  (*,3) 
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3  FORMAT  (IX, '$  Enter  the  name  of  the  output  file.1) 

READ  (*,2,ERR=702)  FILENAME(ll) 

Enter  the  Input  files 

DO  L  -  1,  KN 

IF(LL.GE.2)  REWIND  (UNIT-L) 

OPEN  (UNIT=L,NAME=FILENAME(L),TYPE='OLD' .READONLY) 

READ  (L,2)  TXT(L) 

READ  (L,*)  NUM(L) 

READ  (L,*)  (X(L,J),J=1,NUM(L)) 

READ  (L,*)  (Y(L, J), J=1,NUM(L)) 

CLOSE  (UNIT=L) 

ENDDO 

OPEN  (UNIT=11,NAME=FILENAME(11),TYPE='NEWI ) 

Find  the  maximum  of  the  absolute  value  of  each  of  the  Input  files 

DO  L  =  1,  KN 
CMAX(L)  =  0.0E0 
DO  J  =  1,  NUM(L) 

TEMP  =  CMAX(L) 

CMAX(L)  =  AMAX1(CMAX(L) ,ABS(Y(L,J))) 

IF  (CMAX(L).GT.TEMP)  ASIGN(L)=SIGN(1.0E0,Y(L,J)) 

ENDDO 

WRITE  (*,*)  '  L  =  ' ,L, 1  ASIGN  *  CMAX(L)  =  ’ ,ASIGN(L)*CMAX(L) 

ENDDO 

If  ASIGN(I)  Is  negative,  multiply  the  current  data  from  the  Input 
files  so  that  all  the  data  files  will  all  have  the  same  polarity. 
Retain  the  final  SIGNE  *  ASIGN(l)  *  ...  *  ASIGN(KN)  for  final 
polarity. 

SIGNE  =  1.0E0 

DO  L  -  1,  KN 

SIGNE  *  SIGNE  *  ASIGN(L) 

IF  ( ASIGN (L).LT.O.OEO)  THEN 
DO  0  =  1,  NUM(L) 

Y(L,J)  =  -1.0E0  *  Y(L, J) 

ENDDO 

ENDIF 

ENDDO 

Query  If  a  time  correlation  Is  required.  If  the  answer  is  yes, 
continue  as  given.  If  the  answer  Is  no,  jump  directly  to  the 
multiplying  step. 

703  WRITE  (*,7) 

7  FORMAT  (IX, 1  $  Do  you  want  to  perform  a  time  correlation  on  the', 

1  '  data  traces?  (Y  or  N)‘) 

READ  (*,2,ERR=703)  ANS 
IF  ((ANS.EQ. 1 Y ' ) .OR. (ANS.EQ. 'y1 ))  GO  TO  200 
GO  TO  500 
200  CONTINUE 


Query  If  user  wishes  to  adjust  the  limits  for  time  correlation 
WRITE  (*,201) 

201  FORMAT  (//,lX,'For  the  purposes  of  adjusting  the  timing 

1  '(ordinate)  of  the  digitized  data, ' ,/,lX, 'the  user  ', 

2  'can  select  limits  on  the  digitized  trace  rlse/fall', 

3  '  based  on  fractions' ,/, IX, 'of  trace  maximum. ',//, IX, 

4  'Implicit  In  this  correlation  are  the  assumptions', 

5  '  that  the  trace  rlse/fall  Is' ,/, IX, 'monotonic  ', 

6  'and  that  an  extrapolated  zero  can  be  calculated  by', 

7  '  linear  fitting' ,/, IX, 'the  portion  of  trace  ', 

8  'rlse/fall  determined  from  fractional  limits  of  ', 

9  'maximum. ',//, IX, 

1  'The  curve  will  extrapolate  a  zero  point  from  the  trace', 

2  '  between  FMIN  *  CMAX1 ,/,lX, 'and  FMAX  *  CMAX.  Here,', 

3  '  FMIN  Is  the  lower  fraction,  FMAX  Is  the  upper  fraction', 

4  /,lX,'and  CMAX  Is  the  trace  maximum.  ',//,lX, 

5  'Unless  set  by  user,  FMIN  -  0.1  and  FMAX  =  0.9.',/) 

202  FORMAT  (//,1X,'$  Do  you  want  to  set  the  limits  for  time', 

1  '  correlation?  (Y  or  N)') 

WRITE  (*.202) 

READ  (*,2)  ANS 

IF  ((ANS.EQ. ' Y ' ).0R. (ANS.EQ. ' y 1 ) )  THEN 
WRITE  (*,203) 

203  FORMAT  (1X,'S  Do  you  want  the  same  fractional  limits  on  all 
1  'traces?  (Y  or  N)') 

READ  (*,2)  ANS 

IF  ((ANS.NE.'Y').AND.(ANS.NE.'y'))  THEN 
DO  L  -  1,  KN 

204  CONTINUE 
WRITE  (*,205)  L 

205  FORMAT  (IX, '$  What  Is  FMIN(' ,12,' )?' ) 

READ  (*,*,ERR=204)  FMIN(L) 

FMIN(L)  -  AMIN1(0.9E0,AMAX1(0.10E0,FMIN(L))) 

206  CONTINUE 
WRITE  (*,207)  L 

207  FORMAT  (IX, ' $  What  Is  FMAX( ' ,12, ' )?’ ) 

READ  (*,*,ERR=206)  FMAX(L) 

FMAX(L)  =  AMAX1(Q.1E0,AMIN1(0.90E0,FMAX(L))) 

ENDDO 

DO  L  -  1,  KN 

IF  (FMIN(L).GT.FMAX(L))  THEN 
TEMP  ■  FMAX(L) 

FMAX(L)  =  FMIN(L) 

FMIN(L)  =  TEMP 
ENOIF 

IF  (FMIN(l).EQ.FMAX(L))  THEN 
FMIN(L)  =  0.1E0 
FMAX(L)  =  0.9E0 
ENDIF 
ENDDO 

WRITE  (*,210)  (L,FMIN(L) ,FMAX(L) ,L=1,KN) 

210  FORMAT  (IX,'  L  =  ',16,'  FMIN(L)  =  \1PE10.3,'  FMAX(L)  =', 


o  o  o  o 


1PE10.3) 

ELSE 

CONTINUE 
WRITE  (*,205)  1 
READ  (*,*,ERR=211)  FMIN(l) 

FMIN(l)  =  AMIN1(0.9E0,AMAX1(0.10E0,FMIN(1))) 

CONTINUE 
WRITE  (*,207)  1 
READ  (*,*,ERR=212)  FMAX(l) 

FMAX(l)  *  AMAX1(0.1E0,AMIN1(0.90E0,FMAX(1) )) 

IF  (FMIN(l).GT.FMAX(l))  THEN 
TEMP  =■  FMAX(l) 

FMAX(l)  =  FMIN(l) 

FMIN(l)  =  TEMP 
ENDIF 

IF  (FMIN(l).EQ.FMAX(l))  THEN 
FMIN(l)  =  0.10E0 
FMAX(l)  =  0.90E0 
ENDIF 

DO  L  =  2,  KN 
FMIN(L)  =  FMIN(l) 

FMAX(L)  =  FMAX(l) 

ENDDO 

WRITE  (*,210)  (L,FMIN(L) ,FMAX(L) ,L=1,KN) 

ENDIF 
ELSE 

DO  L  =  1,  KN 
FMIN(L)  =  0.1E0 
FMAX(L)  *  0.9EO 
ENDDO 

WRITE  (*,210)  (L.FMIN(L).FMAX(L) ,L=1,KN) 

ENDIF 

DO  L  -  1,  KN 

CT(L)  =  FMIN(L)  *  CMAX(L) 

CQ(L)  =  FMAX(L)  *  CMAX(L) 

ENDDO 

DO  L  *  1,  KN 
WRITE  (*,*) 

WRITE  (*’,*)  '  L  =  '  ,L, 1  CMAX(L)  =  1  ,CMAX(L) 

WRITE  (*,*)  '  L  *  ' ,L, '  CT(L)  =  \CT(L),'  CQ(L)  =  ’ ,CQ(L) 

WRITE  (*,*) 

ENDDO 


Find  the  corresponding  times  of  the  high  and  low  values  of 
digitized  data  traces 

DO  L  =  1,  KN 
IMIN(L)  =  -1 
IMAX(L)  =  -1 
DO  I  =  1,  NUM(L) 

DELQI(L)  =  CQ(L)  -  Y(L,I) 

DELQIPl(L)  =  Y(L,I+1)  -  CQ(L) 

DELTI(L)  =  CT(L)  -  Y(L,I) 

DELTIPl(L)  =  Y(L,I+1)  -  CT(L) 


IF  ((IMAX(L).GT.O).AND.(IMIN(L) .GT.O))  GO  TO  110 
IF  (DELQI(L).EQ.O.OEO)  THEN 
IMAX(L)  =  MAXO(I-l.l) 

GO  TO  101 
ENOIF 

IF  (( IMAX(L). GT.O). AND. (IMIN(L).GT .0))  GO  TO  110 
IF  (DELQIPl(L).EQ.O.OEO)  THEN 
IMAX(L)  -  MIN0(I+1,NUM(L)) 

GO  TO  101 
ENOIF 

01  CONTINUE 

IF  ((IMAX(L). GT.O). AND. (IMIN(L). GT.O))  GO  TO  110 
IF  (OELTI(L).EQ.O.OEO)  THEN 
IMIN(L)  =  MAXO(I-l.l) 

GO  TO  102 
ENDIF 

IF  ((IMAX(L).GT.O).ANO.(IMIN(L).GT.O))  GO  TO  110 
IF  (OELTIPl(L).EQ.O.OEO)  THEN 
IMIN(L)  =  MIN0(I+1,NUM(L)) 

GO  TO  102 
ENDIF 

02  CONTINUE 

IF  ((IMAX(L). GT.O). AND. (IMIN(L).GT.O))  GO  TO  110 
IF  (DELTI(L)*DELTIP1(L).GT.0.0E0)  THEN 

IMIN(L)  *  I  +  JNINT((CT(L)  -  Y(L, I))/(Y(L,I+1)  -  Y(L,I))) 
IMIN(L)  *  MAX0(IMIN(L)-1,1) 

ENDIF 

IF  ((IMAX(L). GT.O). AND. (IMIN(L). GT.O))  GO  TO  110 
IF  (DELQI(L)*DELQIP1(L).GT.0.0E0)  THEN 

IMAX(L)  »  I  +  JNINT((CQ(l)  -  Y(l,I))/(Y(L,I+l)  -  Y(L,I))) 
IMAX(L)  *  MIN0(IMAX(L)+1,NUM(L)) 

ENDIF 

.10  CONTINUE 
ENDDO 

IF  ((IMIN(L).IE.1).0R. (IMIN(L).GE.NUM(L)))  THEN 
WRITE  (*,9) 

WRITE  (*,*)  '  L  -  ' ,L, '  NUM(L)  *  ',NUM(L),'  IMIN(L)  *  1 ,IMIN(L) 
9  FORMAT  (lX.'The  calculated  limits  on  10%  of  the  value  of  the' 

1  '  current  are  invalid.') 

GO  TO  905 
ENDIF 

IF  ((IMAX(L).LE.1).0R.(IMAX(L).GE.NUM(L)))  THEN 
WRITE  (*,11) 

WRITE  (*,*)  ’  L  =  '  ,L, 1  NUM(L)  =  ',NUM(L),'  IMAX(L)  =  ' ,IMAX(L) 

11  FORMAT  (lX.'The  calculated  limits  on  25%  of  the  value  of  the', 

1  '  current  are  invalid.') 

GO  TO  905 
ENOIF 

IF  (IMIN(L).GE.IMAX(L))  THEN 
WRITE  (*,12) 

WRITE  (*,*)'  L  =*  1  ,L, 1  IMIN(L)  -  ',IMIN(L),'  IMAX(L)  =  ',IMAX(L) 

12  FORMAT  (lX.'The  lower  limit  on  current  Is  greater  than  or  ', 

1  'equal  to  upper  limit.') 

GO  TO  905 
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ENDIF 

XMIN(L)  =  X(L,IMIN(L)) 

XMAX(L)  =  X(L,IMAX(L)) 

WRITE  (*,*)  1  L  =  1  ,L,'  IMIN(L) 
WRITE  (*,*)  '  L  *  '.L,1  XMIN(L) 


MMIN(L),'  IMAX(L) 
1 ,XMIN(L), 1  XMAX(L) 


MMAX(L) 
1 ,XMAX(L) 


Calculate  the  "zero"  point  of  the  data  by  least-squares-fltting 
of  the  data  between  X  -  XMIN(L)  AND  X  =  XMAX(L) 


KC(L)  «  IMAX(L)  -  IMIN(L)  +  1 
DSUMXY(L)  *  0.0D0 
DSUMX(L)  =  O.ODO 
DSUMY(L)  =  0.0D0 
DSUMX2(L)  =  0.0D0 
DO  I  =  IMIN(L),  IMAX(L) 

DSUMXY(L)  =  DSUMXY(L)  +  X(L,I)  *  Y(L,I) 

DSUMX(L)  =  DSUMX(L)  +  X(L,I) 

DSUMY(L)  =  DSUMY(L)  +  Y(L,I) 

DSUMX2(L)  *  DSUMX2(L)  +  X(L,I)**2 
ENDDO 

DK(L)  =  DBLE(KC(L)) 

SLOPE (L)  =  ( DK ( L ) *DSUMX Y ( L ) -DSUMX ( L ) *DS  UMY ( L ) ) / 

1  ( DK ( L ) *DSUMX2 ( L ) -DSUMX ( L ) **2 ) 

B(L)  *  (DSUMY(L)/DK(L))  -  SLOPE(L)*(DSUMX(L)/DK(L)) 
TZERO(L)  =  -  B(L)/SLOPE(L) 

WRITE  (*,*)  1  L  =  ' ,L, '  TZERO(L)  =  TZERO(L) 


Calculate  the  new  time  base  for  the  data  files 


DO  I  *  1,  NUM(L) 
X(L,I)  *  X(L,I) 
ENDDO 
ENDDO 


-  TZERO(L) 


After  subtracting  off  the  zero  offset  from  each  of  the  KN  number 
of  traces,  find  the  average  of  the  offsets  and  add  the  averaged 
offset  to  each  of  the  traces  to  gain  a  common  time  reference  with 
respect  to  all  of  the  other  traces. 


TEMP  =  0.0E0 
DO  L  =  1,  KN 

TEMP  =  TEMP  +  TZERO(L) 
ENDDO 

TEMP  =  TEMP/F10AT(KN) 

DO  L  =  1,  KN 
DO  I  =  1,  NUM(L) 

X(L,I)  =  X(L,I)  +  TEMP 
ENDDO 
ENDDO 

500  CONTINUE 


Calculate  the  minimum  and  the  maximum  times  for  all  the  averaging 
calculations 
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THIN  -  X(l,l) 

TMAX  *  X(1,NUM(1)) 

DO  L  -  1,  KN 

TMIN  -  AMAX1(TMIN,X(L,1)) 

TMAX  *  AMIN1(TMAX,X(L,NUM(L))) 

ENDDO 

WRITE  (*,*)  '  TMIN  -  TMIN,  '  TMAX  =  TMAX 

Spline  fit  the  Input  data  files 

DO  L  *  1,  KN 
N  »  NUM(L) 

DO  K  -  1,  N 

XX(K)  -  X(L,K) 

YY(K)  *  Y(t,K) 

SS(K)  -  S(L,K) 

I I (K)  »  INDEX(L.K) 

ENDDO 

CALL  SPCOEF  (N,XX,YY,SS,II) 

DO  K  =  1,  N 
S(L,K)  -  SS(K) 

INDEX(L.K)  =  I I (K) 

ENDDO 

ENDDO 

Multiply  the  Input  data 

DO  I  =  1,  501 
Y(ll.I)  =  l.OEO 
ENDDO 

DO  I  *  1,  501 

X(11,I)  =  TMIN  +  (TMAX  -  TMIN)*FL0AT(I  -  1)/5.0E2 
DO  L  *  1,  KN 
N  *  NUM(L) 

DO  K  *  1,  N 
XX(K)  *  X(L,K) 

YY(K)  *  Y(L,K) 

SS(K)  =  S(L,K) 

I I (K)  =  INDEX(L,K) 

ENDDO 

TEMP  =  FLOAT (KN-1 )/FLOAT (KN) 

IF  (KN.EQ.l)  TEMP  =  l.OEO 
IF  ( AL0G10( ABS (Y(11,I))).GE.38. OEO*TEMP )  THEN 
Y(U,I)  =  SIGN(1.0E36,Y(11,I)) 

WRITE  (*,33) 

33  FORMAT  (IX, 'The  product  Is  too  large.  It  has  been  limited  out.') 
GO  TO  44 
ENDIF 

Y( 11 , I )  =  SPLINE(N,XX,YY,SS,II ,X(11,I))  *  Y(11,I) 

44  CONTINUE 
ENDOO 
ENDDO 

DO  I  -  1,  500 

Y( 11 , I )  =  SIGNE  *  Y(ll.I) 
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ENDDO 

Output  the  product  file 

TXT(ll)  =  '  Prod,  of  files  7/FILENAME(l)(l:10)//' ,  7/ 

1  FILENAME(2)(1:10)//',  7/FILENAME(3)(l:10)//' ,  7/ 

2  FILENAME(4)(1:10)//1,  7/FILENAME(5)(l:10)//‘ ,  7/ 

3  FILENAME(6)(1:10)//' ,  7/FILENAME(7)(l:10)//' ,  7/ 

4  FILENAME(8)(1:10)//',  7/FILENAME(9)(l:10)//’ ,  7/ 

5  FILENAME(10)(1:10) 

WRITE  (11,2)  TXT(ll) 

WRITE  (11,*)  501 

WRITE  (11,*)  (X(ll, I), 1-1,501) 

WRITE  (11,*)  (Y(ll, I) ,1=1,501) 

CLOSE  (UNIT=11) 

704  WRITE  (*,850) 

850  FORMAT  (1X,‘$  Do  you  want  to  multiply  any  more  data?  (Y  or  N)1) 
READ  (*,2,ERR=704)  ANS 
IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  GO  TO  99 
905  CONTINUE 

WRITE  (*,901) 

901  FORMAT  (IX, '$  The  subroutine  MULTIPLY  Is  terminating  now.1) 
RETURN 
END 


SUBROUTINE  DIVIDE 

This  subroutine  divides  one  file  by  another  (l.e.  Y1/Y2)  and 
yields  a  third  file  as  a  quotient  of  the  two  files.  Both  files 
must  be  In  plot  compatible  form. 

REAL  Xl(1000),  X2(1000) ,  XDIV(IOOO),  Yl(1000),  Y2(1000), 

1  YDIV(IOOO) ,  Sl(1000),  S2( 1000) ,  X,  XHI,  XLO,  XLOG,  XSUM, 

2  YAVG1 ,  YAVG2,  YNEW(IOOO),  YMAX1,  YMAX2,  YMIN1,  YMIN2 
INTEGER  INDEXl(lOOO),  IN0EX2(1000) ,  L0G1,  L0G2,  Nl,  N2,  NDIV, 

1  NUM1 

CHARACTER*132  NAME1,  NAME 2,  DIVNAME 
CHARACTER* 1  ANS 
1  CONTINUE 

Prompt  for  first  Input  file 

700  WRITE  (*,10) 

9  FORMAT  (A) 

10  FORMAT  (IX, '$  Enter  file  name  to  be  divided.') 

READ  (*,9,ERR=700)  NAME1 

Prompt  for  second  Input  file  name 

701  WRITE  (*,20) 

20  FORMAT  (IX, '$  Enter  file  name  to  divide.') 


OOO  ooooo  ooo  ooo  ooo 


READ  (*,9,ERR-701)  NAME 2 
Prompt  for  difference  file  name 
702  WRITE  (*,30) 

30  FORMAT  (IX, 1  $  Enter  file  name  of  the  new  (quotient)  file.1) 

READ  (*,9,ERR»702)  OIVNAME 

OPEN  (UNIT-10.STATUS-1 OLD' .FILE-NAMEl, READONLY) 

OPEN  (UNIT-20, STATUS-' OLD' .FILE-NAME2, READONLY) 

OPEN  (UNIT -30 , ST ATUS- ' NEW ' .FILE-OIVNAME) 

REWIND  (UNIT-10) 

REWIND  (UNIT-20) 

Enter  first  file  characteristics 

READ  (10,*) 

READ  (10,*)  N1 

READ  (10,*)  (X1(I),  I  =  1,  Nl) 

READ  (10,*)  (Y1(I),  I  *  1,  Nl) 

Enter  second  file  characteristics 

READ  (20,*) 

READ  (20,*)  N2 

READ  (20,*)  (X2(I),  I  -  1,  N2) 

READ  (20,*)  (Y2(I),  I  »  1,  N2) 

Create  a  new  Y-array  from  the  second  file  so  that  division  by  the 
new  Y-value  will  not  cause  the  quotient  to  "blow  up",  l.e.  go  to  a 
large  value. 

YMIN1  -  Yl(l) 

YMAX1  -  Yl(l) 

DO  I  -  1,  Nl 

YMIN1  »  AMIN1(Y1(I),YMIN1) 

YMAX1  -  AMAX1(Y1(I),YMAX1) 

ENDDO 

YMAX1  -  AMAX1(ABS(YMIN1) ,ABS(YMAX1)) 

XSUM  =  0.0E0 
DO  I  -  1,  Nl 
XSUM  -  XSUM  +  ABS(Y1(I)) 

ENDDO 

YAVG1  -  XSUM/FL0AT(N1) 

L0G1  -  JNINT ( AL0G10( YAVG1/YMAX1 ) ) 

First  find  the  maximum  and  minimum  of  the  second  file  Y-value 

YMIN2  -  Y2(l) 

YMAX2  -  Y2(l) 

DO  I  -  2,  N2 

YMIN2  =  AMIN1(Y2(I) ,YMIN2) 

YMAX2  =  AMAX1(Y2(I),YMAX2) 

ENDDO 

YMAX2  =  AMAX 1(ABS(YMIN2),ABS( YMAX2 ) ) 


ooo  ooo  ooo  nnn  ooo  oooooooo 


DO  I  -  1,  N2 

XSUM  =  XSUM  +  A6S(Y2(I)) 

ENDDO 

YAVG2  -  XSUM/FL0AT(N2) 

L0G2  -  JN I NT( ALOG 10( YAVG2/YMAX2 ) ) 

XLOG  -  AMIN1(-2.0E0,-3.0E0  -  FL0AT(MIN0(35,IABS(L0G2-L0G1)))) 

If  a  ABS(Y)  is  within  a  lower  limit 
(In  this  case,  10**(-3.O+L0Gl-L0G2)), 
set  this  value  to  a  maximum  of 

10.0**(3.0+L0G2-L0G1)  *  YMAX  *  s1gn(Y(I)). 

This  will  reduce  the  chance  of  having  the  quotient  blow  up. 

DO  I  -  1,  N2 
YNEW(I)  =  Y2(I) 

IF  (ABS(Y2( I ) ) . LE . ( 1 .0E1**XL0G)*YMAX)  THEN 

YNEW(I)  =  SIGN(YMAX,Y2(I))  *  (1.0E1**(-1.0EO*XLOG)) 

ENDIF 

ENODO 


NDIV  *  MAX0(2,MIN0(1000,MAX0(IABS(N1) ,IABS(N2) ,501))) 

Spline  fit  the  data  of  FILE1  and  the  modified  FILE2 

CALL  SPC0EF(N1,X1,Y1,S1, INDEX!) 

CALL  SPCOEF ( N2 , X2 , YNEW.S2 , I NDEX2 ) 

Define  the  limits  of  the  X-values 

XLO  *  AMAX1(X1(1),X2(1)) 

XHI  =  AMIN1(X1(N1),X2(N2)) 

NUM1  *  NDIV  -  1 

Calculate  the  difference  file 

DO  I  -  1,  NDIV 

XDIV(I)  =  XLO  +  (XHI  -  XLO)  *  FL0AT(I  -  1)/FL0AT(NUM1) 
X  =  XDIV(I) 

YDIV(I)  =  SPLINE(N1,X1,Y1,S1,INDEX1,X)/ 

1  SPLINE(N2 ,X2 ,YNEW,S2 , INDEX2 ,X) 

ENDDO 


Output  the  difference  file 

WRITE  (30,9)  '  Quotient  file  of  ’//NAME1(1:30)// 
1  '  divided  by  7/NAME2(l:30) 

WRITE  (30,*)  NDIV 

WRITE  (30,*)  (XDIV(I),  I  =  1,  NDIV) 

WRITE  (30,*)  (YDIV(I),  I  =  1,  NDIV) 

CLOSE  (UNIT-10) 


t 
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CLOSE  (UNIT-20) 
CLOSE  (UNIT-30) 


Query  for  completion 
703  WRITE  (*,15) 

15  FORMAT  (IX, '$  Do  you  want  to  create  any  more  quotient  files?', 
1  '  (Y  or  N)') 

READ  (*,9,ERR«703)  ANS 
IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  60  TO  1 
WRITE  (*,25) 

25  FORMAT  (IX, 1  $  Subroutine  DIVIDE  Is  ending  now.') 

RETURN 

END 


SUBROUTINE  AVERAGE 

This  subroutine  will  Input  up  to  10  data  files  and  output  the  file 
that  Is  the  arithmetic  mean  of  the  Input  files.  The  subroutine 
can  perform  a  correlation  dependent  on  the  calculated  x- Intercept 
of  the  Initial  slope  of  the  trace.  With  proper  modification,  the 
subroutine  can  be  used  to  find  the  arithmetic  mean  of  more  than 
10  files. 

PARAMETER  NUPTS-1000 
CHARACTER*132  FILENAME(ll),  TXT(ll) 

CHARACTER*1  ANS 

INTEGER  INDEX(IO.NUPTS),  II(NUPTS),  IMAX(IO),  IMIN(IO),  KC(10) 
INTEGER  KN,  NUM(IO) 

REAL  ASIGN(IO) ,  B(10),  CMAX(IO),  CQ(10),  CT(10),  DELQI(IO) 

REAL  DELQIPl(lO) ,  DELTI(IO),  DELTIPl(lO),  FMAX(IO),  FMIN(IO) 

REAL  S(IO.NUPTS),  SLOPE(IO),  SS(NUPTS),  TEMP,  TMAX,  TMIN 
REAL  TZERO(IO) ,  X(11,NUPTS),  XX(NUPTS),  XMAX(IO),  XMIN(IO) 

REAL  Y(11,NUPTS) ,  YY(NUPTS) 

DOUBLE  PRECISION  DK(10),  DSUMX(IO),  DSUMX2(10),  DSUMXY(IO) 

DOUBLE  PRECISION  DSUMY(IO) 

LL  -  1 
99  CONTINUE 
LL  -  LL  +  1 

Enter  the  number  of  files  to  be  averaged 
700  WRITE  (*,555) 

555  FORMAT  (IX, '$  Enter  the  number  of  files  to  be  averaged.') 

READ  (*,*,ERR-700)  KN 

IF  ((KN.LE.O).OR. (KN.GT.10))  THEN 
WRITE  (*,556) 

556  FORMAT  (IX, 'The  number  of  files  Is  In  error  —  either  it  is  too  ' 

1  ,' large  or  too  small.') 

GO  TO  905 
ENDIF 


DO  I  =  1,  11 
DO  J  =  1,  132 

FILENAME(I)(J:J)  =  '  ' 

ENDDO 

ENDDO 

Enter  file  names 

DO  L  *  1,  KN 

701  WRITE  (*,1)  L 

1  FORMAT  (IX, '$  Enter  the  name  for  Input  file  for  file  #  ',12) 

READ  (*,2,ERR=701 )  FILENAME (L) 

ENDDO 

2  FORMAT  (A) 

702  WRITE  (*,3) 

3  FORMAT  (IX, '$  Enter  the  name  of  the  output  file.') 

READ  (*,2,ERR=702)  FILENAME (11) 

Enter  the  Input  files 

DO  L  -  1,  KN 

IF(LL.GE.2)  REWIND  (UNIT=L) 

OPEN  (UNIT=*L  ,NAME=FILENAME(L) ,TYPE= 1  OLD 1 .READONLY) 

READ  (L,2)  TXT(L) 

READ  (L,*)  NUM(L) 

READ  (L,*)  (X(L,J),J=1,NUM(L)) 

READ  (L,*)  (Y(L,J),J=1,NUM(L)) 

CLOSE  (UNIT=L) 

ENDDO 

OPEN  (UNIT=11,NAME=FILENAME(11),TYPE=,NEW' ) 

Find  the  maximum  of  the  absolute  value  of  each  of  the  input  files 

DO  L  -  1,  KN 
CMAX(L)  =  O.OEO 
DO  J  =  1,  NUM(L) 

TEMP  =  CMAX(L) 

CMAX(L)  =  AMAX1(CMAX(L),ABS(Y(L,0))) 

IF  (CMAX(L).GT.TEMP)  ASIGN(L)-SIGN(1.0E0,Y(L,J)) 

ENDDO 

WRITE  (*,*)  '  L  *  ',L,'  ASIGN  *  CMAX(L)  =  ' ,ASIGN(L)*CMAX(L) 

ENDDO 

Query  If  a  time  correlation  Is  required.  If  the  answer  Is  yes, 
continue  as  given.  If  the  answer  Is  no,  jump  directly  to  the 
averaging  step. 

703  WRITE  (*,7) 

7  FORMAT  (IX, '$  Do  you  want  to  perform  a  time  correlation  on  the', 

1  1  data  traces?  (Y  or  N)') 

READ  (*,2,ERR=703)  ANS 
IF  ((ANS.EQ. 1 Y' ) .OR. (ANS.EQ. ' y 1 ) )  GO  TO  200 
GO  TO  500 
200  CONTINUE 


Query  if  user  wishes  to  adjust  the  limits  for  time  correlation 


WRITE  (*,201) 

201  FORMAT  (//,lX,'For  the  purposes  of  adjusting  the  timing 

1  '(ordinate)  of  the  digitized  data, 1 ,/,lX, 'the  user  ', 

2  'can  select  limits  on  the  digitized  trace  rlse/falV, 

3  '  based  on  fractions' ,/, IX, 'of  trace  maximum. ',//, IX, 

4  'Implicit  In  this  correlation  are  the  assumptions', 

5  '  that  the  trace  rlse/fall  Is' ,/, IX, 'monotonic  ', 

6  'and  that  an  extrapolated  zero  can  be  calculated  by', 

7  '  linear  fitting* ,/, IX, 'the  portion  of  trace  ', 

8  'rise/fall  determined  from  fractional  limits  of  ', 

9  'maximum. ',//, IX, 

1  'The  curve  will  extrapolate  a  zero  point  from  the  trace1, 

2  '  between  FMIN  *  CMAX' ,/,lX, 'and  FMAX  *  CMAX.  Here,', 

3  '  FMIN  Is  the  lower  fraction,  FMAX  is  the  upper  fraction', 

4  /.lX.’and  CMAX  Is  the  trace  maximum.  ',//,lX, 

5  'Unless  set  by  user,  FMIN  »  0.1  and  FMAX  *  0.9.',/) 

202  FORMAT  (//,1X,'$  Do  you  want  to  set  the  limits  for  time', 

1  '  correlation?  (Y  or  N)') 

WRITE  (*,202) 

READ  (*,2)  ANS 

IF  ( (ANS.EQ. ' Y ' ).0R.(ANS.EQ. ' y ' ) )  THEN 
WRITE  (*,203) 

203  FORMAT  (IX, '$  Do  you  want  the  same  fractional  limits  on  all 
1  'traces?  (Y  or  N)') 

READ  (*,2)  ANS 

IF  ((ANS.NE.'Y').AND.(ANS.NE.'y'))  THEN 
DO  L  »  1,  KN 

204  CONTINUE 
WRITE  (*,205)  L 

205  FORMAT  (IX, '$  What  Is  FMIN( ' ,12, ' )?' ) 

READ  (*,*,ERR=204)  FMIN(L) 

FMIN(L)  *  AMIN1(0.9E0,AMAX1(0.10E0,FMIN(L) )) 

206  CONTINUE 
WRITE  (*,207)  L 

207  FORMAT  (IX, '$  What  Is  FMAX( ' ,12, ' )?' ) 

READ  (*,*,ERR»206)  FMAX(L) 

FMAX(L)  =■  AMAX1(0.1E0,AMIN1(0.90E0,FMAX(1))) 

ENODO 

DO  L  *  1,  KN 

IF  (FMIN(L).GT.FMAX(l))  THEN 
TEMP  -  FMAX(L) 

FMAX(L)  *  FMIN(L) 

FMIN(L)  =  TEMP 
END  IF 

IF  (FMIN(L) .EQ.FMAX(L))  THEN 
FMIN(L)  =  0.1E0 
FMAX(L)  =*  0.9E0 
ENDIF 
ENDDO 

WRITE  (*,210)  (L,FMIN(L) ,FMAX(L) ,L=1 ,KN) 

210  FORMAT  (IX,'  L  *  ',16,'  FMIN(L)  =  ' ,1PE10.3, '  FMAX(L)  =', 


1  1PE10.3) 

ELSE 

CONTINUE 

WRITE  (*,205)  1 

READ  (*,*,ERR=211)  FMIN(l) 

FMIN(l)  *  AMIN1(0.9E0,AMAX1(0.10E0,FMIN(1))) 

CONTINUE 

WRITE  (*,207)  1 

READ  (*,*,ERR=212)  FMAX(l) 

FMAX(l)  =  AMAX1(0. 1E0,AMIN1(0.90E0,FMAX(1))) 

IF  (FMIN(l) .GT.FMAX(l))  THEN 
TEMP  =  FMAX(l) 

FMAX(l)  =  FMIN(l) 

FMIN(l)  =  TEMP 
ENDIF 

IF  (FMIN(l).EQ.FMAX(l))  THEN 
FMIN(l)  =  0.10E0 
FMAX(l)  =  0.90E0 
ENDIF 

DO  L  =  2,  KN 
FMIN(L)  =  FMIN(l) 

FMAX(L)  *  FMAX(l) 

ENDDO 

WRITE  (*,210)  (L,FMIN(L),FMAX(L),L=1,KN) 

ENDIF 

ELSE 

DO  L  *  1,  KN 
FMIN(L)  *  0.1E0 
FMAX(L)  =  0.9E0 
ENDDO 

WRITE  (*,210)  (L,FMIN(L) ,FMAX(L),L=1,KN) 

ENDIF 

DO  L  =  1,  KN 

CT(L)  -  FMIN(L)  *  CMAX(L) 

CQ(L)  =  FMAX(L)  *  CMAX(L) 

ENDDO 

DO  L  =  1,  KN 
WRITE  (*,*) 

WRITE  (*!*)  1  L  =  1 ,L, '  CMAX(L)  *  ' ,CMAX(L) 

WRITE  (*,*)  '  L  -  ' ,L, '  CT(L)  =  ' ,CT(L), '  CQ(L)  =  1 ,CQ(L) 

WRITE  (*,*) 

ENDDO 

Find  the  corresponding  times  of  the  high  and  low  values  of 
digitized  data  trace 

DO  L  -  1,  KN 
IMIN(L)  =  -1 
IMAX(L)  =  -1 
DO  I  =  1,  NUM(L) 

DELQI(L)  =  CQ(L)  -  Y(L,I) 

OELQIPl(L)  =  Y(L,I+1)  -  CQ(L) 

OELTI(L)  =  CT(L)  -  Y(L,I) 

DELTIPl(L)  =  Y(L,I+1)  -  CT(L) 


IF  ((IMAX(L).GT.O).AND.(IMIN(L).GT.O))  GO  TO  110 
IF  (DELQI(L) .EQ.O.OEO)  THEN 
IMAX(L)  *  MAXO(I-l.l) 

GO  TO  101 
ENDIF 

IF  ((IMAX(L).GT.0).AND. (IMIN(L).GT.O))  GO  TO  110 
IF  (DELQIPl(L). EQ.O.OEO)  THEN 
IMAX(L)  =  MIN0(I+1,NUM(L)) 

GO  TO  101 
ENDIF 

01  CONTINUE 

IF  ((IMAX(L).GT.O).AND.(IMIN(L).GT.O))  GO  TO  110 
IF  (DELTI(L). EQ.O.OEO)  THEN 
IMIN(L)  =  MAXO(I-l.l) 

GO  TO  102 
ENDIF 

IF  ((IMAX(L) .GT.O) .AND. (IMIN(L).GT.O))  GO  TO  110 
IF  (DELTIPl(L). EQ.O.OEO)  THEN 
IMIN(L)  =  MIN0(I+1,NUM(L)) 

GO  TO  102 
ENDIF 

02  CONTINUE 

IF  ((IMAX(L). GT.O). AND. (IMIN(L). GT.O))  GO  TO  110 
IF  (DELTI(L)*DELTIP1(L).GT.O.OEQ)  THEN 

IMIN(L)  *  I  +  JNINT((CT(L)  -  Y(L,I))/(Y(L,I+1)  -  Y(L,I))) 
IMIN(L)  *  MAX0(IMIN(L)-1,1) 

ENDIF 

IF  ((IMAX(L). GT.O). AND. (IMIN(L). GT.O))  GO  TO  110 
IF  (QELQI(L)*DELQIP1(L).GT.0.0E0)  THEN 

IMAX(L)  =  I  +  JNINT ( (CQ(L)  -  Y(L,I))/(Y(L,I+1)  -  Y(L,I))) 
IMAX(L)  =  MIN0(IMAX(L)+1,NUM(L)) 

ENDIF 

10  CONTINUE 
ENDDO 

IF  ((IMIN(L).LE.1).0R.(IMIN(L).GE.NUM(L)))  THEN 
WRITE  (*,9) 

WRITE  (*,*)'  L  =  ',L,'  NUM(L)  =  ',NUM(L),'  IMIN(L)  =  '.IMIN(L) 
9  FORMAT  (IX, 'The  calculated  limits  on  10%  of  the  value  of  the' 

1  '  current  are  invalid.') 

GO  TO  905 
ENDIF 

IF  ((IMAX(L).LE.1).0R.(IMAX(L).GE.NUM(L)))  THEN 
WRITE  (*,11) 

WRITE  (*,*)'  L  =»  '  ,L, '  NUM(L)  =  '  ,NUM(L) , '  IMAX(L)  =  MMAX(L) 

11  FORMAT  (IX, 'The  calculated  limits  on  25%  of  the  value  of  the', 

1  '  current  are  invalid.') 

GO  TO  905 

ENDIF 

IF  (IMIN(L).GE.IMAX(L))  THEN 
WRITE  (*,12) 

WRITE  (*,*)'  L  *  ' ,L, '  IMIN(L)  =  ’ ,IMIN(L), '  IMAX(L)  =  ',IMAX(L) 

12  FORMAT  (IX, 'The  lower  limit  on  current  Is  greater  than  or  ', 

1  'equal  to  upper  limit.') 

GO  TO  905 
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ENDIF 

XMIN(L)  =  X(L,IMIN(L)) 

XMAX(L)  =  X(L , IMAX(L) ) 

WRITE  (*,*)  1  L  =  M.,1  IMIN(L) 
WRITE  (*,*)  '  L  =  1 ,L, '  XMIN(L) 


MMIN(L),'  IMAX(L)  =  1  ,IMAX(L) 
1 ,XMIN(L), 1  XMAX(L)  =  ' ,XMAX(L) 


Calculate  the  "zero"  point  of  the  data  by  least-squares-fitting 
of  the  data  between  X  =  XMIN(L)  AND  X  =  XMAX(L) 

KC(L)  =  IMAX(L)  -  IMIN(L)  +  1 
DSUMXY(L)  =  0.0D0 
DSUMX(L)  =  0.0D0 

DSUMY(L)  =  0.0D0 

DSUMX2(L)  =0.000 
DO  I  =  IMIN(L),  IMAX(L) 

DSUMXY(L)  =  DSUMXY(L)  +  X(L,I)  *  Y(L,I) 

DSUMX(L)  =  DSUMX(L)  +  X(L,I) 

DSUMY(L)  =  DSUMY(L)  +  Y(L.I) 

DSUMX2 ( L )  =  DSUMX2(L)  +  X(L,I)**2 
ENDDO 

DK(L)  =  DBLE(KC(L)) 

SLOPE (L)  =  ( DK ( L ) *DSUMXY ( L ) -DSUMX ( L ) *DSUMY ( L ) ) / 

1  ( DK ( L ) *DSUMX2 ( L ) -DSUMX ( L )**2 ) 

B(L)  =  (DSUMY(L)/DK(L))  -  SL0PE(L)*(DSUMX(L)/DK(L)) 

TZERO(L)  =  -  B(L)/SL0PE(L) 

WRITE  (*,*)  *  L  =  1 ,L, '  TZERO(L)  =  TZERO(L) 

Calculate  the  new  time  base  for  the  data  files 


DO  I  =  1,  NUM(L) 
X(L.I)  =  X(L,I)  - 
ENDDO 
ENDDO 


TZERO(L) 


After  subtracting  off  the  zero  offset  from  each  of  the  KN  number 
of  traces,  find  the  average  of  the  offsets  and  add  the  averaged 
offset  to  each  of  the  traces  to  gain  a  common  time  reference  with 
respect  to  all  of  the  other  traces. 

TEMP  =  0.0E0 
DO  L  =  1,  KN 
TEMP  =  TEMP  +  TZERO(L) 

ENDDO 

TEMP  =  TEMP/FLOAT (KN) 

DO  L  *  1,  KN 
DO  I  =  1,  NUM(L) 

X(l,I)  =  X(L,I)  +  TEMP 

EN000 

ENDDO 

500  CONTINUE 

Calculate  the  minimum  and  the  maximum  times  for  all  the  averaging 
calculations 


THIN  «  X(l,l) 

TMAX  -  X(1,NUM(1)) 

DO  L  =  1,  KN 

TMIN  -  AMAX1(TMIN,X(L,1)) 

TMAX  *  AMIN1(TMAX,X(L,NUM(L))) 

EN0D0 

WRITE  (*,*)  '  TMIN  -  ',  TMIN,  1  TMAX  -  ' ,  TMAX 

Spline  fit  the  Input  data  files 

DO  L  =  1,  KN 
N  -  NUM(L) 

DO  K  *  1,  N 

XX(K)  *  X(L,K) 

YY(K)  *  Y(L,K) 

SS(K)  -  S(L,K) 

I I (K )  =  INDEX(L.K) 

ENDDO 

CALL  SPCOEF  (N,XX,YY,SS,II) 

DO  K  *  1,  N 

S(L,K)  *  SS(K) 

INDEX(L.K)  =  II(K) 

ENDDO 

ENDDO 

Average  the  Input  data 

DO  I  -  1,  501 
Y(ll.I)  =  O.OEO 
ENDDO 

DO  I  *  1,  501 

X(11,I)  =  TMIN  +  (TMAX  -  TMIN)*FLOAT(I  -  1)/5.0E2 
DO  L  =  1,  KN 
N  =  NUM(L) 

DO  K  *  1,  N 

XX(K)  =  X(L,K) 

YY(K)  =»  Y(L,K) 

SS(K)  *  S(L,K) 

I I (K )  =  INDEX(L.K) 

ENDDO 

Y ( 1 1 , I )  =  SPLINE (N,XX,YY,SS, II ,X(11,I))  +  Y(11,I) 

ENDDO 

Y(11,I)  =  Y(11,I)/FL0AT(KN) 

ENDDO 

Output  the  averaged  file 

TXT(ll)  =  '  Avg.  of  files  V/FILENAME(1)(1:10)//’ ,  7/ 

L  FILENAME ( 2 ) ( 1 : 10)// 1 ,  7/FILENAME(3)(l:10)//' ,  7/ 
>  FILENAME (4) ( 1 : 10) // ' ,  7/FILENAME (5) ( 1 : 10)// ' ,  7/ 
5  FILENAME(6)(1:10)//' ,  7/FILENAME(7)(l:10)//' ,  7/ 

\  FILENAME(8)(1:10)//' ,  7/FILENAME(9)(l:10)//' ,  7/ 

j  FILENAME(10)(1:10) 

WRITE  (11,2)  TXT(ll) 
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WRITE  (11,*)  501 

WRITE  (11,*)  (X(ll, I), 1=1,501) 

WRITE  (11,*)  (Y(ll, I), 1=1,501) 

CLOSE  (UNIT=11) 

704  WRITE  (*,850) 

850  FORMAT  (IX, 1  $  Do  you  want  to  average  any  more  data?  (Y  or  N)') 
READ  (*,2,ERR=704)  ANS 
IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  GO  TO  99 
905  CONTINUE 
WRITE  (*,901) 

901  FORMAT  (IX, '$  The  subroutine  AVERAGE  Is  terminating  now.') 
RETURN 
END 


SUBROUTINE  REVISE 

adapted  from  PROGRAM  INDUCTOR  version  2.1 

This  subroutine  Is  a  revised  version  of  an  Inductance  calculation 
subroutine  where  Input  data  Is  the  voltage  trace,  the  current 
trace  and  a  time  shift  between  the  two  traces. 

Additionally,  the  subroutine  has  been  modified  to  allow  the 
calculation  of  energy,  power  and  Impedance  as  a  function  of  time. 

The  output  data  are  all  calculated  from  the  current  and  voltage 
traces . 

Important  variables  describing  the  current  and  voltage  are: 

NPTSC  —  number  of  current  (electrical)  data  points 

TXTI  ~  title  of  current  data  (on  first  line  of  data  file) 

TIMEC  --  time  array  corresponding  to  the  current  array;  NPTSC 
time  points 

CMAX  --  absolute  value  of  maximum  current  value 

CUR  —  current  array;  NPTSC  current  data  points 

CURC  —  modified  current  array;  NPTSC  current  data  points 

NPTSV  —  number  of  voltage  data  points 

TXTV  --  title  of  voltage  data  (on  first  line  of  data  file) 

TIMEV  —  time  array  corresponding  to  voltage  array;  NPTSV  time 
points 

VOLT  —  voltage  array;  NPTSV  voltage  points 
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VMAX  —  absolute  value  of  maximum  voltage  value 

THIN  —  the  minimum  time  used  In  calculation;  given  by 
AMAX1(TIMEC(1) .TIMEV(l)-TEMP) 

TMAX  —  the  maximum  time  used  In  calculation;  given  by 
AMIN1(TIMEC(NPTSC),TIMEV(NPTSV)-TEMP) 

TEMP  —  the  time  shift  used  In  calculating  Inductance, 

Impedance,  power  and  energy 

The  modified  current  CURC(I)  Is  essentially  the  current  trace 
(CUR(I))  with  small  current  (where  CUR(I)  Is  less  than  0.25%  CMAX), 
CURC(I)  values  are  set  to  4.0E2  *  SIGN(CMAX,CUR(I)).  This  allows 
the  calculated  Inductance  trace  to  be  within  some  given  limits. 

The  Inductance  L(t)  Is  calculated  from  the  relation 

L(t)  =  INT[V(t)dt  -  R  *  I(t)dt]/IM(t) 

where  INT  Is  the  time  Integral; 

V(t)  Is  the  Input  voltage  (VOLT); 

I(t)  Is  the  Input  voltage  (CUR); 

R  Is  the  assumed  constant  plasma  resistance 
®  0  to  10  mllllohms; 

and  IM(t)  Is  the  modified  current  (CURC). 

The  power  P(t)  (PT(I))  Is  calculated  from  the  relation 
P(t)  =  V(t)  *  I(t) 

The  energy  E(t)  (ET ( I ) )  Is  calculated  from  the  relation 
E(t)  =  INT[P(t)dt] 

The  Impedance  Z(t)  (IMPEDE(I))  Is  calculated  from  the  relation 
Z(t)  =  INT[V(t)dt]/INT[I(t)dt] 

This  version  of  the  code  Is  the  version  dated  15  July  1987  written 
by  David  W.  Price,  AFWL/AWPPE.  It  supersedes  the  version  (1.1) 
dated  7  September  1984  written  by  David  W.  Price,  AFWL/NTYPH.  The 
Initial  version  (INDUCTOR)  was  written  by  Lt.  Michael  P.  Snell  and 
David  W.  Price,  AFWL/NTYPH. 


PARAMETER  NPTS=1000 
EXTERNAL  FC,  FV 

CHARACTER*132  CNAME,  ENERGY,  IMPNAME,  INTCNAM,  INTVNAM,  LNAME 
CHARACTER*132  POWER,  TITLE,  TXTI,  TXTV,  VNAME 
CHARACTERS  CR(5) 

CHARACTER* 1  ANSER 

INTEGER  I CMAX,  ICMIN,  I FLAG,  INDEXC(NPTS) ,  INDEXV(NPTS) ,  IVMAX 
INTEGER  IVMIN,  K,  KC,  KV,  NPTSC,  NPTSV 


332 
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REAL  ACC,  ANS,  AREA,  BC,  B V,  CMAX,  CQ,  CSI6N,  CT,  CUR(NPTS) 

REAL  CURC(NPTS),  DELCQI,  0ELCQIP1,  DELCTI,  0ELCTIP1,  DELVQI 
REAL  DELVQIP1,  DELVTI,  DELVTIP1,  ET(501),  ERROR,  IC(NPTS) 

REAL  IMPEDE(501),  IV(NPTS),  L(NPTS),  PT(501),  SC(NPTS),  SLOPEC 
REAL  SLOPEV,  SV(NPTS),  TEMP,  TIME(501),  TIMEC(NPTS),  TIMEV(NPTS) 
REAL  TMAX,  TMIN,  R(5),  TZEROC,  TZEROV,  VMAX,  VOLT(NPTS),  VQ,  VSIGN 
REAL  VT,  XCMAX,  XCMIN,  XHI,  XLO,  XVMAX,  XVMIN 
DOUBLE  PRECISION  DKC,  DKV,  DSUM,  DSUMC,  DSUMV,  SUMXC,  SUMXV 
DOUBLE  PRECISION  SUMX2C,  SUMX2V,  SUMXYC,  SUMXYV,  SUMYC,  SUMYV 
DATA  CR/'  O.O',1  1.0','  3.0V  6.0', '10.0'/ 

DATA  R/0.0E0,1.0E-3,3.0E-3,6.0E-3,lQ.0E-3/ 

COWON  /I/NPTSC ,TIMEC , CUR , SC , I NDEXC 
COWON  /V/NPTSV ,  T IME V ,  VOL  T ,  SV ,  I NDEXV 
99  CONTINUE 

Enter  file  names 

300  WRITE  (*,1) 

1  FORMAT  (IX, '$  Enter  Integrated  current  filename.1) 

READ  (*,2,ERR=600)  INTCNAM 

2  FORMAT  (A) 

501  WRITE  (*,3) 

3  FORMAT  (IX, '$  Enter  Integrated  voltage  filename.1) 

READ  (*,2,ERR=601)  INTVNAM 

502  WRITE  (*,4) 

4  FORMAT  (IX, '$  Enter  Input  current  filename.') 

READ  (*,2,ERR=602)  CNAME 

503  WRITE  (*,5) 

5  FORMAT  (IX, '$  Enter  Input  voltage  filename.') 

READ  (*,2,ERR=603)  VNAME 

504  WRITE  (*,6) 

6  FORMAT  (IX, '$  Enter  Inductance  output  filename.') 

READ  (*,2,ERR=604)  LNAME 

505  WRITE  (*,7) 

7  FORMAT  (IX, '$  Enter  power  output  filename.') 

READ  (*,2,ERR=605)  POWER 

506  WRITE  (*,8) 

8  FORMAT  (IX, ' $  Enter  energy  output  filename.') 

READ  (*,2,ERR=606)  ENERGY 

607  WRITE  (*,9) 

9  FORMAT  (IX, '$  Enter  Impedance  output  filename.') 

READ  (*,2,ERR=607)  IMPNAME 

OPEN  (UNIT=3, NAME =CNAME,TYPE=' OLD' .READONLY) 

OPEN  ( UN I T=4 , NAME=VNAME , TYP  E= ' OLD ' .READONLY) 

REWIND  (UNIT=3) 

REWIND  (UNIT-4) 

Enter  current  data 

READ  (3,2)  TXT I 
READ  (3,*)  NPTSC 

READ  (3,*)  (TIMEC(I),  1=1,  NPTSC) 

READ  (3,*)  (CUR(I),  I  =  1,  NPTSC) 
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C  Enter  voltage  data 

c 

READ  (4,2)  TXTV 
READ  (4,*)  NPTSV 

READ  (4,*)  (TIMEV(I),  I  =  1,  NPTSV) 

READ  (4,*)  (VOLT(I) ,  I  -  1,  NPTSV) 

Find  the  maximum  of  the  absolute  value  of  the  current 

CMAX  -  0.0E0 
DO  I  -  1,  NPTSC 
TEMP  =  CMAX 

CMAX  »  AMAX1(CMAX,ABS(CUR(I))) 

IF  ( CMAX. GT. TEMP)  CSIGN  *  SIGN(1.0E0,CUR(I)) 

ENDDO 

Find  the  maximum  of  the  absolute  value  of  the  voltage 

VMAX  *  0.0E0 
DO  I  *  1,  NPTSV 
TEMP  »  VMAX 

VMAX  =  AMAX 1 ( VMAX ,ABS(VQLT(I))) 

IF  ( VMAX. GT. TEMP)  VSIGN  =  SIGN(1.0E0,V0LT(I)) 

ENDDO 

WRITE  (*,*)  ‘  VMAX  *  ’ ,  VSIGN  *  VMAX,  1  CMAX  =  1 ,  CSIGN  *  CMAX 

If  VSIGN  and  CSIGN  are  of  different  signs,  multiply  current 
data  by  -1  to  reduce  the  possibility  of  a  negative  calculated 
Inductance. 

IF  (CSIGN*VSIGN . LT . 0 . 0E0)  THEN 
DO  I  -  1,  NPTSC 
CUR(I)  =  -1.0E0  *  CUR(I) 

ENDDO 

CSIGN  *  -l.OEO  *  CSIGN 
ENDIF 

Calculate  quarter  and  tenth  of  the  maximum  current  and  voltage 
values 

CQ  *  CSIGN  *  CMAX/4.0E0 

CT  =  CSIGN  *  CMAX/10.0E0 

VQ  *  VSIGN  *  VMAX/4.0E0 

VT  =  VSIGN  *  VMAX/10.0E0 

WRITE  (*,*)  1  CT  =  * ,  CT,  1  CQ  =  ’ ,  CQ 
WRITE  (*,*)  1  VT  =  1 ,  VT ,  1  VQ  =  ’ ,  VQ 


DO  900  K  =  1,  5 

OPEN  (UNIT=5 ,NAME=LNAME ,TYPE= 1  NEW1 ) 

IF  (K.GT.l)  GO  TO  800 
C 

C  Query  If  a  time  correlation  Is  required.  If  the  answer  Is  yes. 
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continue  as  given.  If  the  answer  Is  no,  jump  directly  to  the 
Integration  step. 

608  WRITE  (*,11) 

11  FORMAT  (1X,'$  Do  you  want  to  perform  a  time  correlation  on  the' 

1  '  data  traces?  (Y  or  N)') 

READ  (*,2,ERR=608)  ANSER 

IF  ( (ANSER.EQ. ' Y ' ) .OR. (ANSER.EQ. 1 y ' ) )  GO  TO  200 
GO  TO  500 
200  CONTINUE 

609  WRITE  (*,12) 

12  FORMAT  (1X,'S  Do  you  wish  to  Input  you r  own  time  correlation  ', 

1  'factor  Instead  of  calculating' ,/, IX, 'a  correlation  factor', 

2  '  (Y  or  N)') 

READ  (*,2,ERR=609)  ANSER 

IF  ((ANSER.EQ. ' Y' ). OR. (ANSER. EQ.'y'))  GO  TO  210 
GO  TO  220 
210  CONTINUE 

WRITE  (*,230) 

230  FORMAT  (IX, ' S  Enter  the  Input  correlation  factor. ',/, IX, 

1  '  (-  time  Indicates  sliding  voltage  to  the  right  with  respect' 

2  /,1X,’  to  the  current  trace;  +  time  Indicates  sliding  voltage' 

3  /,1X, '  to  the  left  with  respect  to  the  current  trace.)') 

READ  (*,*)  TEMP 

GO  TO  400 
220  CONTINUE 

Find  the  corresponding  times  of  the  quarter  and  tenth  values  of 
current. 

00  I  =  1,  NPTSC 

IF  ((ICMAX.GT.O).ANO.(ICMIN.GT.O))  GO  TO  300 
DELCQI  =  CQ  -  CUR(I) 

DELCQIP1  =  CUR(I+1)  -  CQ 
DELCTI  =  CT  -  CUR(I) 

DELCTIP1  =  CUR(I+1)  -  CT 
IF  (DELCQI. EQ.0.0E0)  ICMAX  *  I 
IF  ( DELCQIP 1 . EQ . 0 . 0E0 )  ICMAX  =1+1 
IF  (DELCTI. EQ.0.0E0)  ICMIN  =  I 
IF  (DELCTIP1.EQ.0.0E0)  ICMIN  =1+1 
IF  (DELCTI*DELCTIP1.GT.0.0E0)  THEN 

ICMIN  =  I  +  JNINT((CT  -  CUR(I))/(CUR(I+1)  -  CUR(I))) 

ICMIN  =  MAX0(1,ICMIN-1) 

END  IF 

IF  (DELCQI*DELCQIP1.GT.0.0E0)  THEN 

ICMAX  =  I  +  0NINT((CQ  -  CUR(I))/(CUR(I+1)  -  CUR(I))) 

ICMAX  =  MIN0(NPTSC,ICMAX+1) 

ENDIF 

ENODO 

300  CONTINUE 

IF  ((ICMIN. LE.l). OR. (ICMIN. GE. NPTSC))  THEN 
WRITE  (*,13) 

WRITE  (*!*)  '  NPTSC  =  ',  NPTSC,  '  ICMIN  =  ',  ICMIN 

13  FORMAT  (IX, 'The  calculated  limits  on  10%  of  the  value  of  the 
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GO  TO  950 
ENOIF 

IF  (( ICMAX. LE. 1 ). OR. (ICMAX. GE. NPTSC))  THEN 
WRITE  (*,15) 

WRITE  (*,*)  1  NPTSC  -  NPTSC,  1  ICMAX  -  ICMAX 

15  FORMAT  (IX, 'The  calculated  limits  on  25%  of  the  value  of  the', 

1  '  current  are  Invalid.') 

GO  TO  950 
ENDIF 

IF  (ICMIN.GE. ICMAX)  THEN 
WRITE  (*,16) 

WRITE  (*,*)  '  ICMIN  =  ' ,  ICMIN,  '  ICMAX  =  ' ,  ICMAX 

16  FORMAT  (lX,'The  lower  limit  on  current  Is  greater  than  or 

1  'equal  to  upper  limit.') 

GO  TO  950 
ENDIF 

XCMIN  *  TIMEC( ICMIN) 

XCMAX  *  TIMEC( ICMAX) 

WRITE  (*,*)  '  ICMIN  =  ',  ICMIN,  '  ICMAX  =  ',  ICMAX 

WRITE  (*,*)  '  XCMIN  *  ',  XCMIN,  '  XCMAX  =  ',  XCMAX 

Find  the  corresponding  times  of  the  quarter  and  tenth  values  of 
the  voltage 

DO  I  *  1,  NPTSV 

IF  ((IVMAX.GT.O).AND. (IVMIN.GT.O))  GO  TO  350 
DELVQI  -  VQ  -  VOLT ( I ) 

DELVQIP1  -  V0LT(I+1)  -  VQ 
DELVTI  =  VT  -  VOLT ( I ) 

DELVTIP1  *  V0LT(I+1)  -  VT 
IF  (DELVQI. EQ.O.OEO)  IVMAX  =  I 

IF  (DELVQIP1. EQ.O.OEO)  IVMAX  =1+1 

IF  (DELVTI. EQ.O.OEO)  IVMIN  =  I 

IF  (DELVTIP1.EQ.0.0CC)  IVMIN  =  !  +  1 

IF  (DELVTI*0ELVTIP1.GT.0.0E0)  THEN 

IVMIN  =  I  +  JNINT ( ( VT-VOLT ( I ) )/( VOLT ( 1+1 )-VOLT ( I ) ) ) 

IVMIN  =  MAXO(l.IVMIN-l) 

ENDIF 

IF  (DELVQI*DELVQIP1.GT.0.0E0)  THEN 

IVMAX  *  I  +  JNINT( (VQ-VOLT ( I ) )/( VOLT ( 1+1 )-VOLT ( I ) ) ) 

IVMAX  *  MIN0(NPTSV,IVMAX+1) 

ENDIF 

ENDDO 

350  CONTINUE 

IF  ((IVMIN. LE.l). OR. (IVMIN. GE. NPTSV))  THEN 
WRITE  (*,17) 

WRITE  (*,*)  'NPTSV  =  ',  NPTSV,  '  IVMIN  =  ',  IVMIN 

17  FORMAT  (lX.'The  calculated  limits  on  10%  of  the  value  of  the 

1  'voltage  are  Invalid.') 

GO  TO  950 
ENOIF 

IF  ((IVMAX. LE.l). OR. (IVMAX. GE. NPTSV))  THEN 
WRITE  (*,18) 
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18  FORMAT  (IX, 'The  calculated  limits  on  25%  of  the  value  of  the 

1  'voltage  are  Invalid.') 

WRITE  (*,*)  ' NPTSV  *  NPTSV,  '  IVMAX  =  ',  IVMAX 
GO  TO  950 
ENDIF 

IF  (IVMIN.GE. IVMAX)  THEN 
WRITE  (*,19) 

19  FORMAT  (IX, 'The  lower  limit  on  voltage  Is  greater  than  or  ', 

1  'equal  to  the  upper  limit.') 

WRITE  (*,*)  '  IVMIN  =  ',  IVMIN,  '  IVMAX  =  ',  IVMAX 
GO  TO  950 
ENDIF 

XVMIN  =  TIMEV( IVMIN) 

XVMAX  *  TIMEV( IVMAX) 

WRITE  (*,*)  '  IVMIN  *  ',  IVMIN,  '  IVMAX  =  ',  IVMAX 
WRITE  (*,*)  '  XVMIN  *  ',  XVMIN,  '  XVMAX  =  ',  XVMAX 

Calculate  the  "zero"  point  of  the  voltage  by  least-squares-flttlng 
the  voltage  data  between  X  =  XVMIN  and  X  =  XVMAX 

KV  =  IVMAX  -  IVMIN  +  1 

SUMXYV  =  0.0E0 

SUMXV  *  0.0E0 

SUMYV  =  O.OEO 

SUMX2V  =*  0.0E0 

DO  I  *  IVMIN,  IVMAX 

SUMXYV  =  SUMXYV  +  TIMEV(I)  *  VOLT(I) 

SUMXV  *  SUMXV  +  TIMEV(I) 

SUMYV  =  SUMYV  +  VOLT(I) 

SUMX2V  =  SUMX2V  +  TIMEV(I)**2 
ENDDO 

DKV  *  DBLE(KV) 

SLOPEV  =  ( DKV*SUMXY V-SUMXV*SUMYV ) / ( DK V*SUMX2 V-SUMXV**2 ) 

BV  =  (SUMYV/DKV)  -  SLOPEV* (SUMXV/DKV) 

TZEROV  *  -  BV/SLOPEV 

WRITE  (*,*)  '  TZEROV  =  ',  TZEROV 

Calculate  the  "zero"  point  of  the  current  by  least-squares-f itting 
of  the  data  between  X  =  XCMIN  AND  X  =  XCMAX 

KC  =  ICMAX  -  ICMIN  +  1 

SUMXYC  =  O.OEO 

SUMXC  -O.OEO 

SUMYC  =  O.OEO 

SUMX2C  =  O.OEO 

DO  I  =  ICMIN,  ICMAX 

SUMXYC  =  SUMXYC  +  TIMEC(I)  *  CUR(I) 

SUMXC  =  SUMXC  +  TIMEC(I) 

SUMYC  =  SUMYC  +  CUR(I) 

SUMX2C  =  SUMX2C  +  TIMEC(I)**2 
ENDOO 

DKC  =  DBLE(KC) 

SLOPEC  =  (DKC*SUMXYC-SUMXC*SUMYC)/(DKC*SUMX2C-SUMXC**2) 

BC  =  (SUMYC/OKC)  -  SLOPEC*(SUMXC/DKC) 


TZEROC  *  -  BC/SLOPEC 
WRITE  (*,*)  '  TZEROC  *  TZEROC 
TEMP  *  TZEROV  -  TZEROC 
WRITE  (*,*) 

WRITE  (*,*)  '  TZEROV  -  TZEROC  =  ',  TEMP 
WRITE  (*,*) 

CONTINUE 

Calculate  the  new  time  base  for  the  voltage 

DO  I  -  1,  NPTSV 

TIMEV(I)  *  TIMEV(I)  -  TEMP 

ENDDO 

CONTINUE 

Calculate  the  minimum  and  the  maximum  time  for  the  Inductance 
calculations 

TMIN  *  AMAX1(TIMEC(1),TIMEV(1)) 

TMAX  *  AMIN1(TIMEC(NPTSC),TIMEV( NPTSV)) 

WRITE  (*,*)  1  TMIN  =  ',  TMIN,  '  TMAX  -  TMAX 
DO  I  *  1,  501 

TIME(I)  *  TMIN  +  (TMAX  -  TMIN)  *  FL0AT(I-1)/5.0E2 
ENOOO 

Spline  fit  the  current  and  the  voltage 

CALL  SPCOEF  (NPTSC.TIMEC.CUR.SC.INDEXC) 

CALL  SPCOEF  (NPTSV,TIMEV,VOLT,SV,INDEXV) 

Integrate  the  current 

ACC  *  3.0E-7 
DSUMC  *0.000 
IC(1)  =  SNGL(DSUMC) 

WRITE  (*,150)  1 
DO  I  *  1,  500 
WRITE  (*,150)  I  +  1 

FORMAT  (5X,1 Subroutine  REVISE  is  working;  I  *  ',2X,I4) 

XLO  *  TIME(I) 

XHI  *  TIME(I+1) 

CALL  SIMP(FC,XLO,XHI ,ACC ,ANS , ERROR .AREA, IFLAG) 

DSUMC  *  DSUMC  +  DBLE(ANS) 

IC(I+1)  *  SNGL (DSUMC) 

ENDDO 

Integrate  the  voltage 

DSUMV  *  0.0D0 
IV(1)  =  SNGL (DSUMV) 

WRITE  (*,150)  1 
DO  I  =  1,  500 
WRITE  (*,150)  I  +  1 
XLO  =  TIME(I) 
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XHI  *  TIME(I+1) 

CALL  SIMP(FV,XLO, XHI, ACC, ANS, ERROR, AREA, IFLAG) 

DSUMV  =  DSUMV  +  OBLE(ANS) 

IV(I+1)  *  SNGL (DSUMV) 

ENDDO 

610  WRITE  (*,701) 

701  FORMAT  (IX, ' $  Do  you  want  output  the  Integrated  current  data1, 

1  '  to  a  separate  file?  (Y  or  N)') 

READ  (*,2,ERR=610)  ANSER 

IF  ((ANSER. NE.'Y'). AND. (ANSER. NE.'y'))  GO  TO  710 

Write  Integrated  current  data  to  output 

OPEN  (UNIT-l.NAME-INTCNAM.TYPE-'NEW) 

TITLE  =  TXTI(l:90)//'INT(YdX)/'//TXTI(100:132) 

WRITE  (1,2)  TITLE 
WRITE  (1,*)  501 

WRITE  (1,*)  (TIME(I),I  =  1,  501) 

WRITE  (1,*)  (IC(I),I  -  1,  501) 

710  CONTINUE 
CLOSE  (UNIT-1) 

611  WRITE  (*,711) 

711  FORMAT  (IX, '$  Do  you  want  to  output  the  Integrated  voltage  file 

1  'to  a  separate  file?  (Y  or  N)') 

READ  (*,2,ERR=611)  ANSER 

IF  ((ANSER.NE.'Y1). AND. (ANSER. NE.'y'))  GO  TO  720 

Write  Integrated  voltage  to  output 

OPEN  ( UNIT-2, NAME-INTVNAM, TYPE* 'NEW' ) 

TITLE  *  TXTV(l:90)//'INT(YdX)/'//TXTV(100:132) 

WRITE  (2,2)  TITLE 
WRITE  (2,*)  501 

WRITE  (2,*)  (TIME(I),  I  =  1,  501) 

WRITE  (2,*)  (IV(I),  I  *  1,  501) 

720  CONTINUE 

CLOSE  (UNIT=2) 

800  CONTINUE 

612  WRITE  (*,730)  R(K) 

730  FORMAT  (IX, '$  Do  you  want  to  calculate  the  Inductance  with  R  =  1 
1  1PE8.2, '  ohms?  (Y  or  N)') 

READ  (*,2,ERR=612)  ANSER 

IF  ((ANSER.NE.'Y'). AND. (ANSER. NE.'y'))  GO  TO  740 
Calculate  the  Inductance  according  to  the  relation 
L(t)  =  [INT(V(t))  -  R*INT(I(t))]/[I(t)] 

DO  I  -  1,  501 

IF  (ABS(CUR(I)).LE.2.5E-3*CMAX)  THEN 
CURC(I)  =  4.0E2  *  SIGN(CMAX,CUR(I)) 

ENOIF 

IF  (CURC(I).EQ.O.OEO)  CURC(I)  =  4.0E2  *  CMAX 
IF  (ABS(CUR(I)).GT.2.5E-3*CMAX)  CURC(I)  =  CUR(I) 


L(I)  -  (IV(I)  -  R(K)*IC( I ) )/CURC(I ) 

L(I)  *  AMAX1(L(I) ,0.0E0) 

ENDDO 

C 

C  Write  the  Inductance  to  an  output  file 
C 

WRITE  (5,2)  '  L(T)  vs  T  w/  V  *  ’//VNAME(1:12)//'  w/  I  =  '// 

1  CNAME(1:12)//'  and  R  =  7/CR(K)//'  mohms1 

WRITE  (5,*)  501 

WRITE  (5,*)  (TIME(I),  I  *  1,  501) 

WRITE  (5,*)  (L(I) ,  I  =  1,  501) 

740  CONTINUE 

CLOSE  (UNIT=5) 

IF  (K.GT.l)  60  TO  900 

613  WRITE  (*,751) 

751  FORMAT  (IX, ' $  Do  you  want  to  calculate  the  power?  (Y  or  N)') 

READ  (*,2,ERR=613)  ANSER 

IF  ((ANSER. NE.'Y'). AND. (ANSER. NE.'y'))  GO  TO  760 
C 

C  Calculate  and  output  the  power 
C 

DO  I  *  1,  501 
PT(I)  *  P(TIME(I)) 

IF  (PT(I).LE.-l. 05E0*VMAX*CMAX )  PT(I)  *  -1.05E0*VMAX*CMAX 
IF  ( PT ( I ) . GE . 1 . 05E0*VMAX*CMAX )  PT(I)  *  1.05E0*VMAX*CMAX 
ENDDO 

OPEN  ( UNIT=6 , NAME*POWER .TYPE* 1  NEW ' ) 

WRITE  (6,2)  '  Power  vs  time  with  V  -  V/VNAME(1:12)//'  with  I  *  ’ 
1  //CNAME(1:12) 

WRITE  (6,*)  501 

WRITE  (6,*)  (TIME(I),  I  *  1,  501) 

WRITE  (6,*)  (PT(I),  I  =  1,  501) 

760  CONTINUE 
CLOSE  (UNIT=6) 

614  WRITE  (*,761) 

761  FORMAT  (IX, '$  Do  you  want  to  calculate  the  energy?  (Y  or  N)‘) 
READ  (*,2,ERR-614)  ANSER 

IF  ((ANSER. NE.'Y'). AND. (ANSER. NE.'y'))  GO  TO  770 
C 

C  Calculate  the  energy 
C 

DSUM  *  0.0D0 
ET(1)  *  SNGL(DSUM) 

WRITE  (*,150)  1 
DO  I  *  1,  500 
WRITE  (*,150)  I  +  1 
XLO  *  TIME(I) 

XHI  *  TIME ( 1+1 ) 

CALL  SIMP(P,XLO , XHI , ACC , ANS , ERROR .AREA , IFLAG) 

DSUM  =  DSUM  +  DBLE(ANS) 

ET(I+1)  =  SNGL(DSUM) 

ENDDO 

C 

C  Output  energy 
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OPEN  ( UNIT =7 , NAME “ENERGY , TYPE® 1  NEW 1 ) 

WRITE  (7,2)  1  Energy  vs  time  with  V  =  * //VNAME (1:12) // '  with  I 
1  //CNAME(1:12) 

WRITE  (7,*)  501 

WRITE  (7,*)  (TIME(I) ,  I  =  1,  501) 

WRITE  (7,*)  (ET(I),  I  *  1,  501) 

770  CONTINUE 

CLOSE  (UNIT  *  7) 

615  WRITE  (*,771) 

771  FORMAT  (IX, '$  Do  you  want  to  calculate  the  Impedance?  (Y  or  N) 
READ  (*,2,ERR=615)  ANSER 

IF  ((ANSER. NE.'Y'). AND. (ANSER. NE.'y1))  GO  TO  780 
Calculate  the  Impedance 
DO  I  «  1,  501 

IF  ( IC( I ) . EQ.O.OEO)  IMPEDE(I)  =  0.0E0 
IF  (IC(I).NE.O.OEO)  IMPEDE(I)  =  IV(I)/IC(I) 

ENDDO 


Output  the  calculated  Impedance 

OPEN  (UNIT=8,NAME=IMPNAME ,TYPE= 1  NEW1 ) 

WRITE  (8,2)  1  Impedance  vs  time  with  V  =  '//VNAME(1:12)// 

1  1  with  I  =  ’//CNAME(1:12) 

WRITE  (8,*)  501 

WRITE  (8,*)  (TIME(I) ,  I  -  1,  501) 

WRITE  (8,*)  (IMPEDE(I),  I  *  1,  501) 

780  CONTINUE 

CLOSE  (UNIT  =  8) 

900  CONTINUE 
616  WRITE  (*,930) 

930  FORMAT  (IX, '$  Do  you  want  to  calculate  any  more?  (Y  or  N)  ') 
READ  (*,2,ERR=616)  ANSER 
IF  ((ANSER. EQ.'Y'). OR. (ANSER. EQ.'y'))  GO  TO  99 
950  CONTINUE 

WRITE  (*,999) 

CLOSE  (UNIT=3) 

CLOSE  (UNIT=4) 

999  FORMAT  (IX, 'The  subroutine  REVISE  is  terminating  now.') 
RETURN 
END 


FUNCTION  FC(X) 

COMMON  / I /NPTSC , T IMEC , CUR , SC , I NDEXC 

DIMENSION  TIMEC(IOOO) ,  CUR(IOOO),  SC(IOOO),  INDEXC(IOOO) 

FC  *  SPL I NE ( NPTSC ,TIMEC , CUR , SC , I NDEXC , X ) 

RETURN 


oooooooooooooooooooooooooooo 
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FUNCTION  FV(X) 

DIMENSION  TIME V( 1000) ,  VOLT(IOOO),  SV(1000),  INDEXV(IOOO) 
COMMON  /V/NPTSV , TIME V , VOLT , SV , I NDEXV 
FV  *  SPLINE (NPTSV,TIMEV, VOLT, SV,INDEXV,X) 

RETURN 

END 


FUNCTION  P(X) 

DIMENSION  CUR (1000) ,  INDEXC(IOOO) ,  INDEXV(IOOO),  TIMEC(IOOO) 
DIMENSION  TIMEV(IOOO) ,  SC(IOOO),  SV(IOOO),  VOLT(IOOO) 

CONWON  /I/NPTSC,  TIMEC,  CUR,  SC,  INDEXC 
COMMON  /V/NPTSV,  TIMEV,  VOLT,  SV,  INDEXV 
P  »  FC(X)  *  FV(X) 

RETURN 

END 


SUBROUTINE  CURRENT 

This  subroutine  will  calculate  the  current  response  of  a  B-dot 
probe  or  a  Rogowskl  coll  given  the  output  response  voltage  and 
given  detector  parameters.  If  the  Rogowskl  coll  or  the  B-dot 
probes  are  not  passively  (RC)  Integrated,  the  response  calculated 
will  be  that  of  dl/dt  (time  differential  of  current). 
Additionally,  If  the  errors  are  also  Input,  the  expected  total 
error  Is  output. 

This  program  will  not  Integrate  or  correct  for  "voltage  droop". 


The  equation  to  be  used  Is 

I(t)  =  (2.0E0  *  PI  *  RC  *  RAD  *  V(t))/ 

(MUNOT  *  XN  *  A) 

for  RC  time  Integrated  traces. 

The  equation  to  be  used  Is 

dl(t)/dt  =  (2.0E0  *  PI  *  RAD  *  V(t))/(MUN0T  *  XN  *  A) 
for  traces  not  passively  (RC)  Integrated. 

It  should  be  noted  that  the  response  C  becomes 

=  (2.0E0  *  PI  *  RC  *  RAD) /(MUNOT  *  XN  *  A) 


Ei 
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(for  RC  Integrated  traces) 

C 

=  (2.0E0  *  PI  *  RAD)/(MUN0T  *  XN  *  A) 

(for  no  RC  Integration) 

REAL  X(1000),  YOLD(IOOO),  YNEW(IOOO),  A,  C,  RAD,  RC,  XN 

X(I)  Is  the  I'th  time  point; 

YOLD(I)  is  the  input  I'th  voltage  response; 

YN£W(I)  is  the  calculate  I'th  current  response; 

A  Is  the  area  of  the  probe  in  square  meters; 

C  Is  an  input  overall  response 
(in  Amp/Volts  or  Amp/Volt-secs); 

RAD  is  the  radial  distance  from  the  center  of  the  current 
flow  to  the  center  of  the  coil  in  meters;  and 
XN  is  the  number  of  turns  of  the  coil, 

REAL  AERR,  CERR,  RADERR,  RCERR,  YERR,  XNERR 

AERR  is  the  total  (absolute)  error  in  A; 

CERR  is  the  total  (absolute)  error  in  C; 

RADERR  Is  the  total  (absolute)  error  in  RAD; 

RCERR  is  the  total  (absolute)  error  in  RC; 

YERR  is  the  averaged  percent  error  in  the  Y  array;  and 
XNERR  is  the  total  (absolute)  error  In  XN. 

REAL  ERROR,  MUNOT 

ERROR  is  the  total  output  percent  error  of  the  data  file;  and 
MUNOT  is  the  permeablility  of  free  space=4.0E-7*PI  Henries/meter. 

INTEGER  N,  NT,  NERR 

CHARACTER  INPUT*132,  0UTPUT*132,  TITLE*132,  ANS*1 
PI  =  4.0E0  *  ATAN(l.OEO) 

MUNOT  =  4.0E-7  *  PI 
1  CONTINUE 
A  =  1.0E0 
AERR  =  0.0E0 
RAD  =  1.0E0 
RADERR  =  0.0E0 
RC  =  1.0E0 
RCERR  =  0.0E0 
YERR  =  0.0E0 
C  =  1.0E0 
CERR  =  0.0E0 
ERROR  =  0.0E0 
9  FORMAT  (A) 

Read  input  file  name 

600  WRITE  (*,100) 

100  FORMAT  (1X,'S  What  is  the  input  file  name  to  be  converted  ', 

1  'to  current?' ) 

READ  (*,9,ERR=600)  INPUT 
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OPEN  ( UN IT-1, STATUS- ' OLD1 .FILE-INPUT, READONLY) 

REWINO  (UNIT-1) 

601  WRITE  (*,101) 

101  FORMAT  (IX, '$  What  Is  the  output  file  name?') 

READ  (*,9,ERR»601)  OUTPUT 

OPEN  (UNIT-2, STATUS-'  JEW' .FILE-OUTPUT) 

C 

C  Enter  Input  file  data 
C 

READ  (1,9)  TITLE 
READ  (1,*)  N 

READ  (1,*)  (X(I) ,  I  -  1,  N) 

READ  (1,*)  (YOLD(I),  I  =  1,  N) 

CLOSE  (UNIT-1) 

C 

C  Query  for  the  use  of  passive  (RC)  Integration 
C 

602  WRITE  (*,102) 

102  FORMAT  (IX, '$  Was  the  probe  passively  (RC)  Integrated?  (Y  or  N)') 
READ  (*,9,ERR=602)  ANS 

IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  GO  TO  700 

603  WRITE  (*,300) 

300  FORMAT  (1X,'S  Is  there  a  single  lumped  response  constant?  ', 

1  '(Y  or  N)') 

READ  (*,9,ERR=6Q3)  ANS 
IF  ((ANS.EQ. ' Y 1 ) .OR. (ANS.EQ. 1 y * ) )  GO  TO  500 
C 

C  Enter  values  for  discrete  (non-liimped)  system  parameters 
C 

604  WRITE  (*,301) 

301  FORMAT  (IX, '$  What  Is  the  radial  distance  (from  the  center  of  ', 

1  'the  axial  current  to',/,2X,'  the  center  of  the  loop)', 

2  '  In  meters?') 

READ  (*,*,ERR=604)  RAD 

605  WRITE  (*,302) 

302  FORMAT  (IX, ' $  What  Is  the  absolute  error  In  the  radius  (in  ', 

1  'meters)') 

READ  (*,*,ERR=6Q5)  RADERR 

606  WRITE  (*,303) 

303  FORMAT  (IX, ' $  What  Is  the  number  of  the  turns?') 

READ  (*,*,ERR=606)  NT 

XN  =  FLOAT (NT) 

607  WRITE  (*,304) 

304  FORMAT  (IX, '$  What  Is  the  error  in  the  total  number  of  turns?') 
READ  (*,*,ERR=607)  NERR 

XNERR  =  FLOAT(NERR) 

608  WRITE  (*,305) 

305  FORMAT  (IX, '$  What  Is  the  total  area  of  one  turn  (In  square  ', 

1  'meters)?') 

READ  (*,*,ERR=608)  A 

609  WRITE  (*,306) 

306  FORMAT  (IX, ' $  What  Is  the  error  In  total  area  of  one  turn  (in  ' 

1  'square  meters)?' ) 

READ  (*,*,ERR=603)  AERR 
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610  WRITE  (*,307) 

307  F0RMAT(1X,‘$  What  is  the  averaged  relative  error  in  the  voltage  ', 
1  'trace?') 

READ  (*,*,ERR=610)  YERR 
AERR  =  AERR/A 
RADERR  =  RADERR/RAD 
XNERR  *  XNERR/XN 

CERR  =  AERR**2  +  RADERR**2  +  XNERR**2  +  YERR**2 
ERROR  *  SQRT(CERR) 

C  =  (2.0E0  *  PI  *  RAD)/(MUN0T  *  XN  *  A) 

TITLE  =  '  dl/dt  vs  time  ' //TITLE ( 1 : 117 ) 

GO  TO  900 

Enter  lumped  conversion  factor 

500  CONTINUE 

611  WRITE  (*,501) 

501  FORMAT  (IX, '$  What  is  the  conversion  factor  between  the  voltage 

1  'and  dl/dt  (in  Amp/Volt-secs)?' ) 

READ  (*,*,ERR=611)  C 

612  WRITE  (*,502) 

502  FORMAT  (IX, 1  $  What  is  the  total  error  in  the  conversion  factor 

1  ' (in  Amp/Volt-secs)?1 ) 

READ  (*,*,ERR=612)  CERR 

P CRD  -  PFDR/p 

TITLE  =  '  dl/dt  vs  time  1 //TITLE(1 : 117) 

613  WRITE  (*,307) 

READ  (*,*,ERR=613)  YERR 
ERROR  =  SQRT(CERR**2  +  YERR**2) 

GO  TO  900 

Enter  RC  integrator  time  constant  values 

700  CONTINUE 

614  WRITE  (*,701) 

701  FORMAT  (1X,'$  What  Is  the  RC  time  constant  (in  seconds)?') 

READ  (*,*,ERR=614)  RC 

615  WRITE  (*,702) 

702  FORMAT  (IX, ' $  What  is  the  absolute  error  in  the  RC  time  constant', 

1  '  (In  seconds)?') 

READ  (*,*,ERR=615)  RCERR 
TITLE  =  '  I(t)  ' //TITLE (1:126) 

Query  for  lumped  parameters 

616  WRITE  (*,703) 

703  FORMAT  (IX, '$  Do  you  have  a  conversion  factor  between  input', 

1  '  signal  and  calculated  ' ,/,2X, 'response' , 

2  '  (in  Amp/Volts)?  (Y  or  N)') 

READ  (*,9,ERR=616)  ANS 

IF  ((ANS.EQ. ' Y ' ) .OR. (ANS.EQ. ' y ' ) )  GO  TO  800 

617  WRITE  (*,301) 

READ  (*,*,ERR=617)  RAD 

618  WRITE  (*,302) 
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READ  (*,*,ERR«618)  RADERR 

619  WRITE  (*,303) 

READ  (*,*,ERR=*619)  NT 
XN  *  FLOAT (NT) 

620  WRITE  (*,304) 

READ  (*,*,ERR=620)  NERR 
XNERR  «  FLOAT (NERR) 

621  WRITE  (*,305) 

READ  (*,*,ERR=621)  A 

622  WRITE  (*,306) 

READ  (*,*,ERR3622)  AERR 

623  WRITE  (*,307) 

READ  (*,*,ERR=623)  YERR 
AERR  =  AERR/A 
RADERR  *  RADERR/RAD 
RCERR  *  RCERR/RC 
XNERR  =  XNERR/XN 

CERR  =  AERR**2  +  RADERR**2  +  RCERR**2  +  XNERR**2  +  YERR**2 
ERROR  =  SQRT(CERR) 

C  =  (2.0E0  *  PI  *  RAD  *  RC)/(MUNOT  *  XN  *  A) 

GO  TO  900 
C 

C  Enter  the  lumped  parameters 
C 

800  CONTINUE 

624  WRITE  (*,801) 

READ  (*,*,ERR=624)  C 

625  WRITE  (*,802) 

READ  (*,*,ERR=625)  CERR 
CERR  =  CERR/C 

801  FORMAT  (IX, '$  What  is  the  conversion  factor  between  the  voltage', 

1  '  and  current  (in  Amp/Volts)?1 ) 

802  FORMAT  (IX, 1  $  What  is  the  total  error  in  the  conversion  factor', 

1  '  (in  Amp/Volts)?') 

626  WRITE  (*,307) 

READ  (*,*,ERR=626)  YERR 
ERROR  =  SQRT(CERR**2  +  YERR**2) 

C 

C  Output  the  calculated  current  response 
C 

900  CONTINUE 
DO  I  =  1,  N 
YNEW(I)  »  C  *  YOLD(I) 

ENDDO 

WRITE  (2,9)  TITLE 
WRITE  (2,*)  N 

WRITE  (2,*)  (X(I),  I  «  1,  N) 

WRITE  (2,*)  (YNEW(I) ,  I  =  1,  N) 

WRITE  (2,*)  1  Area  =  ',  A,'  sq.  meters;  rel.  error  In  area  *  ', 

1  AERR 

WRITE  (2,*)'  Radius  =  ',  RAO,  '  meters;  rel.  error  In  radius  =  ', 
1  RADERR 

WRITE  (2,*)  '  RC  =  ',  RC,  '  seconds;  rel.  error  In  RC  =  ',  RCERR 
WRITE  (2,*)  '  number  of  turns  =  ',  INT(XN),';  error  in  turns  =  ', 


1  INT(XN*XNERR), 1  turns' 

WRITE  (2,*)  '  averaged  rel.  error  in  voltage  =  ',  YERR 
WRITE  (2,*)  '  constant  C  *  C,  rel.  error  in  constant', 
1  CERR 

WRITE  (2,*)  '  total  current  rel.  error  =  ',  ERROR 
CLOSE  (UNIT  =  2) 

Query  for  more  calculations 

627  WRITE  (*,950) 

950  FORMAT  (IX, '$  Do  you  want  to  calculate  any  more  current', 

1  '  responses?  (Y  or  N)') 

READ  (*,9,ERR=627)  ANS 

IF  ((ANS.EQ. ' Y ' ).0R.(ANS.EQ. ‘ y ' ) )  GO  TO  1 

WRITE  (*,951) 

951  FORMAT  (IX, '$  The  subroutine  CURRENT  will  stop  now!') 

RETURN 

END 


SUBROUTINE  MEANY 

This  program  calculates  the  average  y-value  value  on  the  discrete 
y-value  trace  within  given  limits  using  a  least  squares  fit 
technique.  A  lower  and  an  upper  x-value  are  Input  by  the  user. 

DIMENSION  X(1000),  Y(1000) 

DOUBLE  PRECISION  STDDEV,  SUMY,  SUMY2 ,  XMEAN ,  XN,  XNL1 
REAL  XHI ,  XLO 

INTEGER  IDEL,  I ERR,  IHI,  ILO 
CHARACTER  ANS*1,  INFILE*132,  0UTFILE*132 

Input  Initial  information 

WRITE  (*,25) 

READ  (*,9,ERR=700)  OUTFILE 

OPEN  (UNIT=10,STATUS='NEW ,FILE=0UTFILE) 

CONTINUE 
WRITE  (*,15) 

F0RMAT(1X,'$  Enter  file  name  of  trace  to  be  portion  ', 

1  'averaged.') 

FORMAT  (A) 

READ  (*,9,ERR=701)  INFILE 

OPEN  (UNIT=5 ,STATUS= ' OLD ' ,FILE=INFILE, READONLY) 

FORMAT  (IX, '$  Enter  the  output  file  name.') 

CONTINUE 
REWIND  (UNIT=5) 

WRITE  (*,30) 

FORMAT  (IX, 'The  averaged  y-value  Is  determined  from  input’, 

'  x-values.') 

WRITE  (*,35) 

FORMAT  (IX, '$  Input  lower  x-value  of  the  trace  to  be  ', 
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'averaged. ' ) 

READ  (*,*,ERR=«702)  XLO 

703  WRITE  (*,40) 

40  FORMAT  (IX, '$  Input  upper  x-value  of  the  trace.1) 

READ  (*,*,ERR»703)  XHI 
READ  (5,*) 

READ  (5,*)  N 

READ  (5,*)  (X(I),  I  *  1,  N) 

READ  (5,*)  (Y(I) ,  I  ■  1,  N) 

Check  and  see  If  errors  have  occured  on  Input  x- values 
IERR  =  0 

IF  (XLO.LT.X(l))  IERR  =  1 
IF  (XLO.GT.X(N) )  IERR  *  1 
IF  (XLO. GE. XHI)  IERR  =  1 
IF  (XHI.LT.X(l))  IERR  -  1 
IF  (XHI.GT.X(N))  IERR  =  1 
IF  (TERR.EQ.l)  THEN 
WRITE  (*,51) 

WRITE  (*,52)  XLO,  XHI 
WRITE  (*,53)  X(l),  X(N) 

704  WRITE  (*,54) 

READ  (*,9,ERR=»704)  ANS 

51  FORMAT  (IX, 'There  Is  an  error  In  the  x-array  limits.') 

52  FORMAT  (IX,'  XLO  »  ' .1PE20.8.T50, '  XHI  =  '.1PE20.8) 

53  FORMAT  (IX,1  X(l)  =  ' ,1PE20.8,T50, '  X(N)  *  '.1PE20.8) 

54  F0RMAT(1X,'$  Do  you  wish  to  stop  the  subroutine  now?  (Y  or  N)') 

IF  ((ANS.EQ. ' Y * ).0R.(ANS.EQ. ' y ' ))  GO  TO  998 
GO  TO  2 
ENDIF 

Sort  through  the  x-array  and  find  the  values  for  ILO  and  IHI 

DO  100  I  -  2,  N 
XXL1  «  XLO  -  X(I-l) 

XXLO  «  X(I)  -  XLO 

IF  (XXL1.EQ.0.0E0)  ILO  =  MAX0(1,I-1) 

IF  (XXLO.EQ.O.OEO)  ILO  =  I 

IF  ( XXL 1*XXL0 . GT . 0 . OEO )  THEN 
IF  (ABS(XXLl).LE.ABS(XXLO))  ILO  =1-1 
IF  (ABS(XXLl) .GT.ABS(XXLO))  ILO  =  I 
ENDIF 

100  CONTINUE 

DO  200  I  =  JMAX0(IL0-1,2) ,  N 
XXL1  =  XHI  -  X(I-l) 

XXHI  -  X(I)  -  XHI 
IF  (XXL1.EQ.O.OEO)  IHI  =1-1 

IF  (XXHI. EQ.O. OEO)  IHI  =  I 

IF  (XXL1*XXHI .GT.O.OEO)  THEN 

IF  (ABS(XXLl).LE.ABS(XXHI ))  IHI  =1-1 
IF  (ABS(XXLl) .GT.ABS(XXHI ) )  IHI  *  I 
ENDIF 

200  CONTINUE 
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Calculate  average  (XMEAN)  and  standard  deviation  from  the  average 
(STDOEV) 

IDEL  *  IHI  -  ILO  +  1 
XN  »  DBLE(IDEL) 

XNL1  =  DBLE(IDEL  -  1) 

SUMY  =  0.0D0 
SUMY2  »  0.000 
DO  500  I  =  ILO,  IHI 
SUMY  *  SUMY  +  DBLE(Y(I)) 

500  SUMY 2  *  SUMY2  +  DBLE(Y(I))**2 

STDOEV  =  SQRT  ( (XN*SUMY2-SUMY**2  )/(XN*XNLl) ) 

XMEAN  =  SUMY/XN 

Write  out  results 

600  FORMAT  (/,1X, 1 Y(average)  =  ' .1PE20.8.5X, 'Std.  dev.  =  '.1PE20.8) 
WRITE  (10,*) 

WRITE  (10,*)  '  For  input  file  1 
WRITE  (10,9)  1  1 //INFILE(1:72) 

WRITE  (10,600)  SNGL( XMEAN),  SNGL(STDDEV) 

WRITE  (10,*) 

WRITE  (*,*) 

WRITE  (*,*)  1  For  input  file  1 
WRITE  (*,9)  '  7/INFILE(l:72) 

WRITE  (*,600)  SNGL( XMEAN),  SNGL(STDDEV) 

WRITE  (*,*) 

Query  for  more  averaging 
705  WRITE  (*,900) 

900  FORMAT  (IX, ' S  Do  you  want  any  more  averages?  (Y  or  N)1) 

READ  (*,9,ERR=705)  ANS 

IF  ((ANS.EQ. 'Y' ).0R.(ANS.EQ. ' y ' ))  GO  TO  1 

End  subroutine  ME ANY 

998  CONTINUE 
CLOSE  (UNIT=5) 

CLOSE  (UNIT=1Q) 

WRITE  (*,999) 

999  FORMAT  (IX, '$  Subroutine  MEANY  Is  ending  now.') 

RETURN 

END 


SUBROUTINE  MAXMIN 
DIMENSION  X(1000),  Y(1000) 
CHARACTER*132  TITLE,  INFILE 
CHARACTER*!  ANS 
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This  subroutine  finds  the  maxima  and  minima  of  x-values  and 
y-values  and  their  corresponding  y-  and  x-values  In  a  plot 
compatible  file. 

CONTINUE 
WRITE  (*,5) 

FORMAT  (IX, *  $  Enter  Input  file  name  to  find  maximum  and1 
I  1  minimum.') 

READ  (*,9,ERR=700)  INFILE 

OPEN  (UNIT=5, STATUS*' OLD' ,FILE=INFILE, READONLY) 

REWIND  (UNIT=5) 

READ  (5,9)  TITLE 
FORMAT  (A) 

READ  (5,  *)  N 

READ  (5,  *)  (X(I),  I  -  1,  N) 

READ  (5,  *)  (Y(I),  I  *  1,  N) 

IXMIN  *  1 
IXMAX  *  1 
IYMIN  *  1 
IYMAX  =  1 
XMIN  =  X(l) 

XMAX  *  X(l) 

YMIN  *  Y(l) 

YMAX  =  Y(l) 

DO  I  =  1,  N 

IF  (X(I).LT.XMIN)  IXMIN  *  I 
XMIN  =  AMIN1(XMIN,X(I) ) 

IF  (X(I).GT.XMAX)  IXMAX  *  I 
XMAX  *  AMAX1(XMAX,X(I)) 

IF  (Y(I).LT.YMIN)  IYMIN  *  I 
YMIN  *  AMIN1(YMIN,Y(I)) 

IF  (Y(I).GT.YMAX)  IYMAX  *  I 
YMAX  =  AMAX1(YMAX,Y(I)) 

ENDDO 


WRITE  (*,*) 
WRITE  (*,*)  '  F 
WRITE  (*,9)  ' 
WRITE  (*,*)  '  b 
WRITE  (*,*)  '  b 
WRITE  (*,*)  '  > 
WRITE  (*,*)  '  > 
WRITE  (*,*) 
CLOSE  (UNIT=5) 


For  filename  —  ' 

1 //INF I LE ( 1 : 60 ) 


Minimum  x 
Maximum  x 
X(YMIN)  = 
X(YMAX)  = 


XMIN,  ' 
',  XMAX,  ' 
X( IYMIN) , 
X(IYMAX), 


Y(XMIN)  = 
Y (XMAX)  = 

'  YMIN  =  ' 
'  YMAX  =  ' 


,  Y ( IXMIN ) 
,  Y( IXMAX) 
YMIN 
YMAX 


Query  for  more  maxima/minima  calculations 
WRITE  (*,21) 

FORMAT  (IX, 'S  Do  you  want  to  perform  any  more  maxima/minima1, 
L  '  calculations  (Y  or  N)‘) 

READ  (*,9,ERR=701)  ANS 

IF  ((ANS.EQ. ' Y ’ ),0R.(ANS.EQ. ' y ' ) )  GO  TO  1 

WRITE  (*,22) 

FORMAT  (IX, ' $  Subroutine  MAXMIN  Is  ending  now.1) 

RETURN 

END 
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SUBROUTINE  SMOOTH 

DIMENSION  XI (1000),  X2(1000),  Yl(lOOO),  Y2(1000),  YNEW(IOOO) 
DIMENSION  S(1000) 

DIMENSION  INOEX(IOOO) 

REAL  S,  XI,  X2,  XMIN,  XMAX,  Yl,  Y2,  YNEW 
CHARACTER*132  TITLE,  INFILE,  OUTFILE 
CHARACTER*!  ANS 
C 

C  This  program  performs  a  seven  point  smoothing  on  the  y-values  of 
C  the  trace.  The  x-values  are  not  affected. 

C 

1  CONTINUE 

700  WRITE  (*,5) 

5  FORMAT  (IX, '$  Enter  Input  file  name  to  be  smooched.') 

9  FORMAT  (A) 

READ  (*,9,ERR-700)  INFILE 

701  WRITE  (*,10) 

10  FORMAT  (IX, 1  $  Enter  output  file  name.') 

READ  (*,9,ERR=*701)  OUTFILE 

OPEN  (UNIT-5 .STATUS- 1  OLD 1 ,FILE=INFILE .READONLY ) 

REWIND  (UNIT-5) 

OPEN  (UNIT-10, STATUS-' NEW' .FILE-OUTFILE) 

READ  (5,9)  TITLE 

READ  (5,*)  N 

IF  (N.LT.7)  THEN 
WRITE  (*,  11)  N 

11  FORMAT  (IX, 'For  smoothing,  there  must  be  at  least  7  data', 

1  '  points;  N  =  ' ,  16) 

WRITE  (10,9)  TITLE 

WRITE  (10,*)  N 

WRITE  (10,*)  (X1(I),  I  -  1,  N) 

WRITE  (10,*)  ( Yl ( I ) ,  I  *  1,  N) 

GO  TO  99 
END  IF 

READ  (5,*)  (X1(I),  I  -  1,  N) 

READ  (5,*)  (Y1(I) ,  I  -  1,  N) 

Perform  a  spline  fit  of  the  data. 

The  old  x-array  is  XI;  the  old  y-array  is  Yl.  The  new  x-array  is 
X2;  the  new  y-array  Is  Y2.  The  new  x-array  Is  equally  spaced. 

CALL  SPC0EF(N,  XI,  Yl,  S,  INDEX) 

XMIN  =  Xl(l) 

XMAX  -  Xl(l) 

DO  I  =  2,  N 

XMIN  =  AMIN1(XMIN,  X1(I)) 

XMAX  =  AMAX1(XMAX,  X1(I)) 

ENDDO 

DO  I  =  1,  N 

X2( I )  =  XMIN  +  (XMAX  -  XMIN)  *  FL0AT( I-1)/FL0AT(N-1) 
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Y2(I)  =  SPLINE(N,  XI,  Yl,  S,  INDEX,  X2(I)) 

ENDDO 

Smooth  the  data.  For  data  points  where  4.LE.I.LE.N-3,  a  seven 
point  running  average  Is  performed,  l.e. 

YNEW(I)  »  Y2(I-3)  +  Y2( 1-2)  +  Y2(I-1)  +  Y2(I) 

+  Y2(I+1)  +  Y2(I+2)  +  Y2(I+3) 

DO  I  *  4,  N-3 

YNEW(I)  =  Y2( 1-3)  +  Y2 ( I— 2 )  +  Y2(I-1)  +  Y2(I)  +  Y2(I+1) 
l  +  Y2(I+2)  +  Y2(I+3) 

ENDDO 

YNEW(l)  »  4.0E0  *  Y2(l)  +  Y2(2)  +  Y2(3)  +  Y2(4) 

YNEW(2)  *  Y2(l)  +  3.0E0  *  Y2(2)  +  Y2(3)  +  Y2(4)  +  Y2(5) 

YNEW(3)  *  Y2(l)  +  Y2(2)  +  2.0E0  *  Y2(3)  +  Y2(4)  +  Y2(5)  +  Y2(6) 

YNEW(N-2)  =  Y2(N-5)  +  Y2(N-4)  +  Y2(N-3)  +  2.0E0  *  Y2(N-2) 

L  +  Y2(N-1)  +  Y2(N) 

YNEW(N-l)  =  Y2(N-4)  +  Y2(N-3)  +  Y2(N-2)  +  3.0E0  *  Y2(N-1) 

L  +  Y2(N) 

YNEW(N)  =  Y2(N-3)  +  Y2(N-2)  +  Y2(N-1)  +  4.0E0  *  Y2(N) 

DO  I  *  1,  N 

YNEW(I)  =  YNEW(I)/7.0E0 
ENDDO 

WRITE  (10,9)  TITLE ( 1 : 99)// ' SMOOTH/ ' //TITLE ( 107 : 132 ) 

WRITE  (10,*)  N 

WRITE  (10,*)  (X2(I),  I  *  1,  N) 

WRITE  (10,*)  (YNEW(I) ,  I  *  1,  N) 

CLOSE  (UNIT  =  5) 

CLOSE  (UNIT  -  10) 

Query  for  more  smoothing 

WRITE  (*,21) 

FORMAT  (IX, '$  Do  you  want  to  perform  any  more  smoothing?  ’, 

1  *(Y  or  N)') 

READ  (*,9,ERR=702)  ANS 

IF  ((ANS.EQ. ' Y ' ) .OR. (ANS.EQ. ' y ' ) )  GO  TO  1 

CONTINUE 

WRITE  (*,22) 

FORMAT  (IX, ' $  Subroutine  SMOOTH  Is  ending  now.') 

CLOSE  (UNIT=10) 

RETURN 

END 


SUBROUTINE  EXCHANGE 
DIMENSION  X(1000),  Y(1000) 
CHARACTER*132  TITLE,  INFILE,  OUTFILE 
CHARACTER*!  ANS 


non  o o  o  o 


I  »**•*♦»  S*  a*  ^  «.♦»».  «>t 'tfw»  »,<  **.!•»■  ii  l'i  j’t  i"»  ■««  •'«  I*.  l*.*iL' 


This  subroutine  exchanges  the  x-  and  y-values  In  a  plot  compatible 
data  file. 

CONTINUE 
WRITE  (*,5) 

FORMAT  (IX, 1  $  Enter  input  file  name  to  exchange  axes  values.1) 
READ  (*,9,ERR=700)  INFILE 
WRITE  (*,10) 

FORMAT  (IX, ‘ $  Enter  output  file  name.1) 

READ  (*,9,ERR=701)  OUTFILE 

OPEN  (UNIT=5,STATUS='0LD' ,FILE=INFILE, READONLY) 

REWIND  (UNIT-5) 

OPEN  (UNIT=10,STATUS=' NEW1 ,FILE=OUTFILE) 

READ  (5,9)  TITLE 
FORMAT  (A) 

READ  (5,  *)  N 

READ  (5,  *)  (X(I),  I  «  1,  N) 

READ  (5,  *)  (Y(I),  I  =  1,  N) 

WRITE  (10,9)  TITLE ( 1 : 106 )// 1  EXCHANGE/ 1 //TITLE (116: 132 ) 

WRITE  (10,*)  N 

WRITE  (10,  *)  (Y(I) ,  I  =  1,  N) 

WRITE  (10,  *)  (X(I),  I  *  1,  N) 

CLOSE  (UNIT=5) 

CLOSE  (UNIT=1Q) 

Query  for  more  transformations 
WRITE  (*,21) 

FORMAT  (IX, '$  Do  you  want  to  perform  any  more  data  exchanges?', 
1  '  (YorN)1) 

READ  (*,9,ERR=702)  ANS 
IF  ((ANS.EQ.'Y').OR.(ANS.EQ.'y'))  GO  TO  1 
WRITE  (*,22) 

FORMAT  ( IX , 1  $  Subroutine  EXCHANGE  Is  ending  now.1) 

RETURN 

END 


SUBROUTINE  FOURIER 

This  subroutine  performs  a  Fourier  smoothing  of  a  plot  compatible 
file. 

This  subroutine  was  adapted  from  a  program  written  by  Lt.  Stephen 
W.  R.  Warren  and  Brian  Woolweber  of  AFWL/AWPPE.  Their  program  was 
adapted  from  the  article  "Fourier  Smoothing  Without  the  Fourier 
Transform"  published  In  BYTE  magazine,  February  1985,  pp.  207-218. 

REAL  FK(1000) ,  111(1000),  R(1000),  SND(IOOO),  Xl(1000) 

REAL  X2(1000) ,  Yl(1000),  Y2(1000),  YT(1000) 

REAL  BINT,  C,  PI,  RO,  S,  SLOPE,  SUMFR ,  SUMFRC,  SUMI,  SUMR, 


>vw 


o  o  o 
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SUMY,  TEMP,  XMIN,  XMAX,  YO,  YTO 
INTEGER  INDEX (1000) 

INTEGER  E 

CHARACTER*132  INFILE,  OUTFILE,  TITLE 
CHARACTERS  ANS 

1  WRITE  (*,10) 

10  FORMAT  (IX, '$  Enter  the  file  name  to  be  Fourier  smoothed.') 
READ  (*,9,ERR-1)  INFILE 

2  WRITE  (*,15) 

15  FORMAT  (IX, ' S  Enter  the  output  file  name.') 

READ  (*,9,ERR=2)  OUTFILE 
9  FORMAT  (A) 

OPEN  (UNIT-10, NAME-INFILE, TYPE-'OLD', READONLY) 

REWIND  (UNIT-10) 

READ  (10,9)  TITLE 

READ  (10,*)  N 

READ  (10,*)  (X1(I),I=1,N) 

READ  (10,*)  (Y1(I),I=1,N) 

C 

C  Perform  a  spline  fit  of  the  data. 

C 

C  The  old  x-array  Is  XI;  the  old  y-array  Is  Yl.  The  new  x-array  Is 

C  X2;  the  new  y-array  Is  Y2.  The  X2  array  Is  equally  spaced. 

C 

CALL  SPC0EF(N,  XI,  Yl,  SND,  INDEX) 

XMIN  -  Xl(l) 

XMAX  -  Xl(l) 

DO  I  -  2,  N 

XMIN  -  AMIN1(XMIN,  X1(I)) 

XMAX  -  AMAX1(XMAX,  X1(I)) 

ENDDO 

DO  I  =  1,  N 

X2(I)  -  XMIN  +  (XMAX  -  XMIN)  *  FL0AT(I-1)/FL0AT(N-1) 

ENDDO 

DO  I  -  1,  N 

Y2(I)  =  SPLINE(N,  XI,  Yl,  SND,  INDEX,  X2(I)) 

ENDDO 

CLOSE  (UNIT-10) 

Begin  the  Fourier  smoothing  process 

SLOPE  =  (Y2(N)  -  Y2(1))/(X2(N)  -  X2(l)) 

BINT  -  Y2(l)  -  SLOPE  *  X2(l) 

DO  I  -  1,  N 

Y2(I)  =  Y2(I)  -  SLOPE  *  X2(I)  -  BINT 
ENDDO 

3  WRITE(*,11) 

11  FORMAT  (IX, ' $  Enter  the  value  of  E:  0  <  E  <  (N/2) ' ) 

READ  (*,*,ERR=3)  E 
IF  (E.LT.l)  THEN 

WRITE  (*,21)  E 

21  FORMAT  (IX,'  E  must  be  greater  than  or  equal  to  1;  E  =',I6) 

GO  TO  3 
ENDIF 
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IF  (E.GE. (N/2))  THEN 
WRITE  (*,22)  (N/2) 

22  FORMAT  (IX,1  E  has  been  limited  to  ’,16) 

E  =  N/2 
END  IF 

WRITE  (*,12) 

12  FORMAT  (/, IX, 'Performing  R(k)  calculations',/) 

PI  *  4.0E0  *  ATAN(l.OEO) 

YO  =  Y2(l) 

SUMY  =  O.OEO 
DO  I  =  1,  N 

SUMY  =  Y2(I)  +  SUMY 
IF  (I.GE.E)  FK( I)  =  O.OEO 

IF  (I.LT.E)  FK(I)  =  l.OEO  -  (FL0AT(I)/FLQAT(E))**2 
ENDDO 

RO  =  SUMY/FLOAT(N) 

WRITE  (*,12) 

DO  K  *  1,  (E-l) 

SUMR  =  O.OEO 
DO  J  =  1,  (N-l) 

TEMP  =  FLOAT(J)  *  FL0AT(K)/FL0AT(N) 

C  *  C0S(2.0E0  *  PI  *  TEMP) 

SUMR  *  Y2(J)  *  C  +  SUMR 
ENDOO 

R(K)  =  (YO  +  SUMR)/FLOAT(N) 

ENDDO 

WRITE(*,13) 

13  FORMAT  (/,  IX,  'Performing  I(k)  calculations',  /) 

DO  K  *  1,  (E-l) 

SUMI  =  O.OEO 
DO  J  =  1,  (N-l) 

TEMP  =  FLOAT (0)  *  FLOAT ( K ) /FLOAT ( N ) 

S  *  SIN(2.0E0  *  PI  *  TEMP) 

SUMI  -  Y2( J)  *  S  +  SUMI 
ENDDO 

III(K)  =  -SUMI/FLOAT(N) 

ENDDO 

SUMFR  =  O.OEO 
DO  K  »  1,  (E-l) 

SUMFR  *  FK(K)  *  R(K)  +  SUMFR 
ENDDO 

YTO  =  RO  +  2.0E0  *  SUMFR 
DO  J  =  1,  (N-l) 

SUMFRC  =  O.OEO 
00  K  =  1,  (E-l) 

TEMP  =  FLOAT(J)  *  FL0AT(K)/FL0AT(N) 

S  =  SIN(2.0E0  *  PI  *  TEMP) 

C  *  C0S(2.0E0  *  PI  *  TEMP) 

SUMFRC  =  FK(K)  *  R(K)  *  C  -  FK(K)  *  III(K)  *  S  +  SUMFRC 
ENDDO 


YT(J)  =  RO  +  2.0E0  *  SUMFRC 
ENDDO 

Y2(l)  =  YTO 
DO  I  =  2,  N 


$ 


m 


Y2(I)  -  YT(I-l) 

ENDOO 

DO  I  *  1,  N 

Y2(I)  -  Y2(I)  +  SLOPE  *  X2(I)  +  BINT 
ENDDO 

OPEN  (UNIT*20,NAME=0UTFILE ,TYPE=' NEW1 ) 

WRITE  (20,9)  TITLE ( 1 : 116)// ' FOURIER/ 1 //TITLE ( 125:132) 
WRITE  (20,*)  N 

WRITE  (20,*)  (X2(I),  I  -  1,  N) 

WRITE  (20,*)  (Y2(I),  I  =  1,  N) 

CLOSE  (UNIT  -  20) 

Query  to  see  If  more  Fourier  smoothing  Is  needed 
700  WRITE  (*,30) 

30  FORMAT  (IX, ' S  Do  you  want  to  Fourier  smooth  any  more  data? 

1  '(Y  or  N)') 

READ  (*,9,ERR=700)  ANS 
IF  ((ANS.EQ. 1 Y ' ).0R.(ANS.EQ. 1 y 1 ) )  GO  TO  1 
WRITE  (*,31) 

31  FORMAT  (IX, ' S  Subroutine  FOURIER  Is  ending  now.') 


NOTE:  Repeated  attempts  were  made  to  obtain  permission  from  the 
copyright  holder  to  present  SUBROUTINE  SIMP,  SUBROUTINE  SPCOEF  and 
FUNCTION  SPLINE.  The  copyright  holder,  the  publisher  of  the  text  In 
which  the  coding  appeared,  chose  not  to  respond  to  the  requests  for  use. 
Since  the  copyright  holder  must  approve  any  presentation  of  copyrighted 
material,  this  coding  Is  not  presented.  For  those  who  wish  to  know  the 
details  of  the  coding,  they  should  refer  to  the  text  In  which  the  coding 
appeared.  It  Is  NUMERICAL  COMPUTING:  an  Introduction  by  Lawrence  F. 
Shamplne  and  Richard  C.  Allen,  Jr.  It  Is  published  by  W.  B.  Saunders, 
West  Washington  Square,  Philadelphia  PA  and  Is  copyright  1973. 


V7V 


APPENDIX  D 


EXPERIMENTAL  DATA  SUMMARY 


In  reporting  peak  currents  at  different  axial  positions,  it  should  be 

noted  that  current  is  recorded  over  a  period  of  about  5  ps.  Any  current 

after  that  time  is  lost.  Some  axial  peak  current  data  may  be  inaccurate 

if  peak  current  occurs  near  or  after  the  end  of  the  data.  If  peak  axial 

current  occurs  at  the  outer  edge  of  the  photographic  data  record,  this 

is  noted  by  identifying  peak  current  at  that  axial  position  with  an 

★ 

asterisk  (e.g.,  1.0  MA  ). 


The  format  for  this  experimental  summary  Is: 

Shot  Number 

Applied  voltage. 

Total  peak  transmission  line  current  (If  any)  and  time  of 
peak  after  current  rise. 

Total  peak  gun  current  (If  any)  and  time  of  peak  after  current 
rise. 

Peak  recorded  bottom  current  (if  any). 

Peak  recorded  mid-bottom  current  (if  any). 

Peak  recorded  mid-top  current  (If  any). 

Peak  recorded  top  current  (if  any). 

Number  of  Ag  detector  counts/equivalent  number  of  neutrons. 

Gas  valve  description. 

Comments  (if  any). 


The  actual  experimental  data  summary  follows. 


Shot  D2901 


4 

eg 


a 


* 

l 

x 

% 

i 


‘■1  "il  *i1  St  M  St  ' 


Applied  voltage  60  kV. 

Peak  recorded  bottom  current  1.47  MA. 

Peak  recorded  mid-bottom  current  0.56  MA. 

Peak  recorded  top  current  0.18  MA. 

221  Ag  detector  counts/2. 8x10®  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1100  ps. 
Clearing  shot. 


Shot  D2902 

Applied  voltage  60  kV. 

146  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1100  ps. 
Prefire. 


Shot  D3001 

Applied  voltage  60  kV. 

Peak  total  gun  current  of  1.43  MA  at  1.02  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.05  MA. 

Peak  recorded  mid-bottom  current  1.11  MA. 

Peak  recorded  mid-top  current  1.01  MA. 

Peak  recorded  top  current  1.00  MA. 

926  Ag  detector  counts/1.2*107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1100  ps. 
Clearing  shot. 


Shot  D3002 


Applied  voltage  60  kV. 


WTO 


mm 


Peak  total  gun  current  of  1.31  MA  at  2.5  us  after  current 
rise. 

Peak  recorded  bottom  current  0.81  MA. 

Peak  recorded  mid-bottom  current  0.62  MA. 

Peak  recorded  mid- top  current  0.40  MA. 

* 

Peak  recorded  top  current  0.48  MA. 

1092  Ag  detector  counts/1. 4*10^  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1100  ys. 


Shot  SD3003 

Applied  voltage  60  kV. 

Peak  total  gun  current  of  1.29  MA  at  1.3  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.07  MA. 

Peak  recorded  mid-bottom  current  1.05  MA. 

Peak  recorded  mid-top  current  0.98  MA. 

* 

Peak  recorded  top  current  1.06  MA  . 

618  Ag  detector  counts/7. 7*10^  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1075  ys. 


Shot  03004 


Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.56  MA  at  3.6  ys 
after  current  rise. 

Peak  total  gun  current  of  1.24  MA  at  1.3  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.06  MA. 

Peak  recorded  mid-bottom  current  1.08  MA. 

Peak  recorded  mid-top  current  0.98  MA. 

★ 

Peak  recorded  top  current  1.06  MA  . 

736  Ag  detector  counts/9. 2* 10®  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1075  ys. 


Shot  D3005 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.73  MA  at  3.0  us 
after  current  rise. 

Peak  total  gun  current  of  1.44  MA  at  3.3  us  after  current 
rise. 

Peak  recorded  bottom  current  0.97  MA. 

Peak  recorded  mid-bottom  currer'  1.05  MA. 

Peak  recorded  mid-top  current  0.95  MA. 

Peak  recorded  top  current  0.97  MA. 

884  Ag  detector  counts/1. 1*10^  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1100  us. 


Shot  D3006 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.41  MA  at  3.2  us 
after  current  rise. 

Peak  total  gun  current  of  1.39  MA  at  2.9  us  after  current 
rise. 

* 

Peak  recorded  bottom  current  1.07  MA  . 

Peak  recorded  mid-bottom  current  0.79  MA. 

Peak  recorded  mid-top  current  0.66  MA. 

Peak  recorded  top  current  0.68  MA. 

1861  Ag  detector  counts/2. 3*107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  us. 


after  current  rise. 


Peak  total  gun  current  of  1.44  MA  at  1.3  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.10  MA. 

Peak  recorded  mid-bottom  current  1.11  MA. 

Peak  recorded  mid-top  current  0.90  MA. 

* 

Peak  recorded  top  current  1.07  MA  . 

943  Ag  detector  counts/1. 2*107  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1125  us. 


Shot  D3008 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.67  MA  at  1.2  us 
after  current  rise. 

Peak  total  gun  current  of  1.56  MA  at  1.1  us  after  current 
rise. 

Peak  recorded  bottom  current  1.17  MA. 

Peak  recorded  mid-bottom  current  1.21  MA. 

Peak  recorded  mid-top  current  0.98  MA. 

* 

Peak  recorded  top  current  0.97  MA  . 

2503  Ag  detector  counts/3.1><107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  us. 


Shot  03009 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.98  MA  at  1.7  us 
after  current  rise. 

Peak  total  gun  current  of  1.65  MA  at  1.4  us  after  current 
rise. 

Peak  recorded  bottom  current  1.19  MA. 

Peak  recorded  mid-bottom  current  1.21  MA. 

* 

Peak  recorded  mid-top  current  0.96  MA  . 


Peak  recorded  top  current  0.92  MA  . 

3485  Ag  detector  counts/4. 4« 107  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1150  ps. 


Shot  D3010 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.83  MA  at  3.2  ps 
after  current  rise. 

Peak  total  gun  current  of  1.40  MA  at  1.2  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.05  MA. 

Peak  recorded  mid-bottom  current  1.09  MA. 

* 

Peak  recorded  mid-top  current  0.86  MA  . 

Peak  recorded  top  current  0.89  MA. 

2351  Ag  detector  counts/3. Ox 107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  ps. 


Shot  03011 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.77  MA  at  1.5  ps 
after  current  rise. 

146  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1175  ps. 

Short  shot. 


Shot  D3012 

Applied  voltage  70  kV. 

Peak  total  transmission  line  current  of  4.29  MA  at  1.4  ps 
after  current  rise. 

172  Ag  detector  counts/0  neutrons. 
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One  gas  valve— lower  gas  valve,  valve  delay  1150  us. 
Short  shot. 


Shot  00501 

Applied  voltage  70  kV. 

Peak  total  transmission  line  current  of  4.59  MA  at  1.5  us 
after  current  rise. 

141  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  us. 

Short  shot. 


Shot  00601 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.81  MA  at  1.0  us 
after  current  rise. 

165  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1200  us. 

Short  shot. 


Shot  00602 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.87  MA  at  1.6  us 
after  current  rise. 

144  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1200  us. 

Short  shot. 


Shot  00603 


363 


Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.25  MA  at  1.8  ys 
after  current  rise. 

155  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  ys. 


Short  shot. 


Shot  00701 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.65  MA  at  1.3  ys 
after  current  rise. 

Peak  total  gun  current  of  1.54  MA  at  1.2  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.16  MA. 

Peak  recorded  mid-bottom  current  1.12  MA. 

★ 

Peak  recorded  mid-top  current  1.01  MA  . 

* 

Peak  recorded  top  current  0.89  MA  . 

4625  Ag  detector  counts/5. 8*107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  ys. 
Clearing  shot. 


Shot  J0702 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.24  MA  at  2.5  ys 
after  current  rise. 

Peak  total  gun  current  of  1.92  MA  at  2.4  MA  at  2.4  ys  after 
current  rise. 

Peak  recorded  bottom  current  1.02  MA. 

Peak  recorded  mid-bottom  current  1.00  MA. 

★ 

Peak  recorded  mid-top  current  0.83  MA  . 

Peak  recorded  top  current  0.61  MA. 

1635  Ag  detector  counts/2. 0* 10^  neutrons. 


One  gas  valve— lower  gas  valve,  valve  delay  1150  us. 


Shot  J0703 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.65  MA  at  3.2  ps 
after  current  rise. 

Peak  total  gun  current  of  1.57  MA  at  3.2  after  current 
rise. 

Peak  recorded  bottom  current  1.29  MA. 

Peak  recorded  mid-bottom  current  1.32  MA. 

★ 

Peak  recorded  mid- top  current  0.93  MA  . 

ic 

Peak  recorded  top  current  0.64  MA  . 

Q 

12543  Ag  detector  counts/1. 6x10  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  ps. 


Shot  J0704 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.75  MA  at  1.9  ps 
after  current  rise. 

164  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  ps. 

Short  shot. 


Shot  J0705 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.64  MA  at  2.0  ps 
after  current  rise. 

133  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  ps. 

Short  shot. 
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Shot  J0706 


Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.85  MA  at  3.3  us  4 

after  current  rise. 

Peak  total  gun  current  of  1.4  MA  at  1.2  us  after  current  < 

rise. 

Peak  recorded  bottom  current  1.24  MA. 

Peak  recorded  mid-bottom  current  1.23  MA. 

Peak  recorded  mid-top  current  1.03  MA. 

Peak  recorded  top  current  0.85  MA. 

3170  Ag  detector  counts/4. Ox 10^  neutrons. 

One  gas  valve — lower  gas  valve,  valve  delay  1150  us. 


Shot  J0707  ‘ 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.77  MA  at  2.9  us 
after  current  rise. 

Peak  total  gun  current  of  1.55  MA  at  1.3  us  after  current 
rise. 

Peak  recorded  bottom  current  1.16  MA. 

Peak  recorded  mid-bottom  current  1.11  MA. 

★ 

Peak  recorded  mid-top  current  0.89  MA  . 

* 

Peak  recorded  top  current  0.75  MA  . 

5877  Ag  detector  counts/7. 4x10^  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1200  us. 


Shot  J0708 

Applied  voltage  60  kV. 

Peak  recorded  bottom  current  1.06  MA. 

Peak  recorded  mid-bottom  current  1.04  MA. 
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Peak  recorded  mid-top  current  0.86  MA. 

* 

Peak  recorded  top  current  0.76  MA  . 

3347  Ag  detector  counts/4. 2*107  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1200  us. 


Shot  J0709 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.58  MA  at  2.1  ps 
after  current  rise. 

160  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1250  us. 


Shot  J0901 

Applied  voltage  60  kV. 

170  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  us. 
Clearing  shot. 


Shot  J0902 

Applied  voltage  60  kV. 

Peak  total  gun  current  of  1.76  MA  at  2.6  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.03  MA. 

Peak  recorded  mid-bottom  current  1.01  MA. 

Peak  recorded  mid-top  current  0.86  MA. 

★ 

Peak  recorded  top  current  0.66  MA  . 

5428  Ag  detector  counts/6. 9* 107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  ps. 
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Shot  J0903 


Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.39  MA  at  2.4  us 
after  current  rise. 

Peak  total  gun  current  of  2.09  MA  at  1.9  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.06  MA. 

Peak  recorded  mid-bottom  current  0.90  MA. 

Peak  recorded  mid-top  current  0.64  MA. 

Peak  recorded  top  current  0.56  MA. 

629  Ag  detector  counts/7. 9x 10^  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1150  ps. 


Shot  00904 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.90  MA  at  2.9  ps 
after  current  rise. 

Peak  total  gun  current  of  1.65  MA  at  1.4  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.11  MA. 

Peak  recorded  mid-bottom  current  1.10  MA. 

Peak  recorded  mid-top  current  0.74  MA. 

Peak  recorded  top  current  0.59  MA. 

4137  Ag  detector  counts/5. 2 *107  neutrons. 

One  gas  valve-lower  gas  valve,  valve  delay  1150  ps. 
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Shot  00905 

Applied  voltage  60  kV. 

Peak  total  gun  current  of  2.36  MA  at  2.1  ps  after  current 
rise. 

Peak  recorded  bottom  current  0.86  MA. 
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Peak  recorded  mid-bottom  current  0.78  MA. 

Peak  recorded  mid-top  current  0.59  MA. 

Peak  recorded  top  current  0.41  MA. 

218  Ag  detector  counts/2. 7x10®  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1200  ys. 


Shot  J1001 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.34  MA  at  1.8  ys 
after  current  rise. 

Peak  total  gun  current  of  2.12  MA  at  1.8  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.01  MA. 

Peak  recorded  mid-bottom  current  0.85  MA. 

Peak  recorded  mid-top  current  0.70  MA. 

Peak  recorded  top  current  0.53. 

237  Ag  detector  counts/3. Ox  10®  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1200  ys. 
Clearing  shot. 


Shot  J1002 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.51  MA  at  2.9  ys 
after  current  rise. 

Peak  total  gun  current  of  1.48  MA  at  1.1  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.24  MA. 

Peak  recorded  mid-bottom  current  1.24  MA. 

* 

Peak  recorded  mid-top  current  1.10  MA  . 

★ 

Peak  recorded  top  current  0.95  MA  . 

Q 

9196  Ag  detector  counts/1. 2x10  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1175  ys. 
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Shot  J1003 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.68  MA  at  1.3  us 
after  current  rise. 

Peak  total  gun  current  of  I . 65  MA  at  1.4  us  after  current 
rise. 

Peak  recorded  bottom  current  1.20  MA. 

Peak  recorded  mid-bottom  current  1.28  MA. 

Peak  recorded  mid-top  current  1.07  MA. 

Peak  recorded  top  current  0.86  MA  . 

3145  Ag  detector  counts/4. Ox 107  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1150  us. 


Shot  J1004 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.54  MA  at  2.0  us 
after  current  rise. 

160  Ag  detector  counts/0  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  us. 

Short  shot;  plug  did  not  fire. 


Shot  01005 

Applied  voltage  60  kV. 

Peak  recorded  bottom  current  0.96  MA. 

Peak  recorded  mid-bottom  current  0.92  MA. 

Peak  recorded  mid-top  current  0.75  MA. 

★ 

Peak  recorded  top  current  0.55  MA  . 

5725  Ag  detector  counts/7. 3xl07  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  us. 
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Shot  J1006 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.96  MA  at  2.5  ps 
after  current  rise. 

Peak  total  gun  current  of  1.53  MA  at  1.6  ps  after  current 
rise. 

Peak  recorded  bottom  current  0.93  MA. 

Peak  recorded  mid-bottom  current  0.97  MA. 

Peak  recorded  mid-top  current  0.72  MA. 

Peak  recorded  top  current  0.62  MA. 

351  Ag  detector  counts/4. 4* 10^  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  ps. 

Gas  regulator  problems;  Dg  gas  pressure  925  pslg. 


Shot  J1007 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.79  MA  at  1.2  ps 
after  current  rise. 

Peak  total  gun  current  of  1.46  MA  at  1.3  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.20  MA. 

Peak  recorded  mid-bottom  current  1.27  MA. 

Peak  recorded  mid-top  current  0.91  MA. 

★ 

Peak  recorded  top  current  0.78  MA  . 

3969  Ag  detector  counts/5. Ox  10^  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  ps. 
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Shot  J1008 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.66  MA  at  2.2  ps 


371 


after  current  rise. 

Peak  total  gun  current  of  2.22  MA  at  1.5  us  after  current 
rise. 

Peak  recorded  bottom  current  0.81  MA. 

Peak  recorded  mid-bottom  current  0.54  MA. 

Peak  recorded  mid-top  current  0.40  MA. 

Peak  recorded  top  current  0.23  MA. 

399  Ag  detector  counts/5. 0*10®  neutrons. 

One  gas  valve— lower  gas  valve,  valve  delay  1125  ys. 


Shot  J1009 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.62  MA  at  1.3  ys 
after  current  rise. 

Peak  total  gun  current  of  1.52  MA  at  1.3  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.22  MA. 

Peak  recorded  mid-bottom  current  1.37  MA. 

Peak  recorded  mid-top  current  1.02  MA. 

* 

Peak  recorded  top  current  0.82  MA  . 

Q 

2043  Ag  detector  counts/1. 1*10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3750  ys. 


Shot  01101 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.93  MA  at  1.7  ys 
after  current  rise. 

163  Ag  detector  counts/0  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3750  ys. 
Clearing  shot.  Prefire.  Upper  gas  valve  did  not  fire. 
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Shot  J1102 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  3.16  MA  at  1.9  ps 
after  current  rise. 

174  Ag  detector  counts/0  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ps; 

upper  gas  valve,  valve  delay  3750  ps. 
Prefire.  Upper  gas  valve  did  not  fire. 


Shot  J1103 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  2.62  MA  at  2.4  ps 
after  current  rise. 

Peak  total  gun  current  of  1.96  MA  at  2.1  ps  after  current 
rise. 

Peak  recorded  bottom  current  0.96  MA. 

Peak  recorded  mid-bottom  current  0.78  MA. 

Peak  recorded  mid-top  current  0.57  MA. 

Peak  recorded  top  current  0.51  MA. 

425  Ag  detector  counts/2. 3*107  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ps; 

upper  gas  valve,  valve  delay  3750  ps. 


Shot  J1104 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.77  MA  at  1.4  ps 
after  current  rise. 

Peak  total  gun  current  of  1.70  MA  at  1.5  ps  after  current 
rise. 


Peak  recorded  bottom  current  1.20  MA. 

Peak  recorded  mid-bottom  current  1.13  MA. 

Peak  recorded  mid-top  current  0.87  MA  . 

Peak  recorded  top  current  0.73  MA  . 

O 

2094  Ag  detector  counts/1.1 *10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  us; 

upper  gas  valve,  valve  delay  3750  us. 


Shot  J1105 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.74  MA  at  3.1  us 
after  current  rise. 

Peak  total  gun  current  of  1.51  MA  at  1.1  us  after  current 
rise. 

Peak  recorded  bottom  current  1.30  MA. 

Peak  recorded  mid-bottom  current  1.21  MA. 

Peak  recorded  mid-top  current  1.03  MA. 

* 

Peak  recorded  top  current  0.98  MA  . 

Q 

7187  Ag  detector  counts/3. 9* 10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  us; 

upper  gas  valve,  valve  delay  3750  us. 


Shot  J1106 
Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.60  MA  at  1.1  us 
after  current  rise. 

Peak  total  gun  current  of  1.53  MA  at  1.2  us  after  '-urrent 
rise. 

Peak  recorded  bottom  current  1.18  MA. 

Peak  recorded  mid-bottom  current  1.24  MA. 

Peak  recorded  mid-top  current  0.53  MA. 

★ 

Peak  recorded  top  current  0.89  MA  . 


3518  Ag  detector  counts/1. 9*108  neutrons. 

Two  gas  valves --lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3800  ys. 


Shot  J1107 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.58  MA  at  1.2  ys 
after  current  rise. 

Peak  total  gun  current  of  1.58  MA  at  1.2  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.21  MA. 

Peak  recorded  mid-bottom  current  1.27  MA. 

Peak  recorded  mid-top  current  0.75  MA  . 

★ 

Peak  recorded  top  current  0.78  MA  . 

o 

5177  Ag  detector  counts/2. 8* 10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3800  ys. 


Shot  J1108 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.60  MA  at  1.2  ys 
after  current  rise. 

Peak  total  gun  current  of  1.69  MA  at  1.3  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.32  MA. 

Peak  recorded  mid-bottom  current  1.22  MA. 

★ 

Peak  recorded  mid- top  current  1.00  MA  . 

★ 

Peak  recorded  top  current  0.78  MA  . 

Q 

5790  Ag  detector  counts/3. 1*10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3850  ys. 


Shot  J1109 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.65  MA  at  1.3  ps 
after  current  rise. 

Peak  total  gun  current  of  1.51  MA  at  1.2  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.27  MA. 

Peak  recorded  mid-bottom  current  1.20  MA. 

Peak  recorded  mid-top  current  1.05  MA. 

Peak  recorded  top  current  0.90  MA  . 

Q 

2367  Ag  detector  counts/1. 3*10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ps; 

upper  gas  valve,  valve  delay  3850  ps. 

Ag  detector  tubes  changed  after  this  shot. 


Shot  J1110 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.77  MA  at  1.4  ps 
after  current  rise. 

Peak  total  gun  current  of  1.61  MA  at  1.4  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.09  MA. 

Peak  recorded  mid-bottom  current  1.21  MA. 

Peak  recorded  mid-top  current  1.11  MA. 

Peak  recorded  top  current  0.85  MA. 

Q 

2061  Ag  detector  counts/1. 1* 10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ps; 

upper  gas  valve,  valve  delay  3850  ps. 
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Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.68  MA  at  1.1  ys 
after  current  rise. 

Peak  total  gun  current  of  1.48  MA  at  1.3  ps  after  current 
rise. 

Peak  recorded  bottom  current  1.27  MA. 

Peak  recorded  mid-bottom  current  1.33  MA. 

Peak  recorded  mid- top  current  1.00  MA  . 

* 

Peak  recorded  top  current  0.84  MA  . 

Q 

9160  Ag  detector  counts/5. 0*10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3900  ys. 


Shot  01201 

Applied  voltage  60  kV. 

Peak  total  transmission  line  current  of  1.66  MA  at  1.2  ys 
after  current  rise. 

Peak  total  gun  current  of  1.54  MA  at  1.2  ys  after  current 
rise. 

Peak  recorded  bottom  current  1.32  MA. 

Peak  recorded  mid-bottom  current  1.26  MA. 

Peak  recorded  mid-top  current  0.97  MA. 

* 

Peak  recorded  top  current  0.79  MA  . 

Q 

5514  Ag  detector  counts/3. 0><  10  neutrons. 

Two  gas  valves— lower  gas  valve,  valve  delay  1150  ys; 

upper  gas  valve,  valve  delay  3900  ys. 
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Clearing  shot. 
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